ONCEq 



ONCE ONLY OPERATOR DIALOGUE AND ID DEVICE I N I T . ( MURROUCHS DISK) MACRr,.v36 19!0a 4-JUN-69 PAGE 1 



1 
2 
3 

4 
S 
6 
7 
8 

y 

IP 
11 

12 
13 
1.4 
15 
16 
17 
18 
19 
?« 
?1 
?2 
23 
74 
25 
?6 
27 
'8 
29 
I'M 
31 
32 

:?3 
:?4 
3 5 
^6 



.•eooCOPYRIGHT 1969, HIGITAL EQUIPMENT CORP., MAYNARD, yASS.»*» 

JTHIS SUR-PROGRAM ASSE"BUEO WITH SYSTEM PARAMETER EILE - S.MAC(V4l4) 

LIST 
Iwi^ ^"""'''^°'^''*" ASSEMBLED i-ITH CONFIGURATION CEPENDEMT FEATURE SWITCHED- FT5eSB.MACC 

XLIST 

LIST 
IFE FTDISK+FTRClC+2,< 
TITLE ONCER - ONCE ONLY OPERATOR DIALOGUE »ND 10 DEVICE I N I T . ( BURROUGHS !□ I SK ) 

IFE FTDI?K + FTRCll^+l,< 

TITLE ONCEO - ONCE ONLY OPERATOR DIALOGUE AND 10 DEVICE INIT.CDATA PROHU-CTS DISK) 

IFE FTDISK + FTRC1(1 + !!|,< 

ONCE Only operator dialogue and 10 DEVICE INIT.(NO DISK) 



TITLE ONCEM 
> 

SUaTTL T, H-ASTIMGS/RCr/CHW TS 
XP V0NCE,414T 

;PUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP 



34 JUN 69 V414 



INTERNAL 



ETRCia ITHIS SINGLE SOURCE FILE MAY BE ASSEMBLED FOR EIThER 

) THE NEW PDP-10 (BURROUGHS) DISK, OR THE OLD PQP-fc (DATA 
) PRriDUCTS) DISK (FTRC10 = -1 OR K, RESPECTIVELY, IN S). 



"ONCE" SHOULD BE THE LAST LOADED PROGRAM BEFORE SYSMAK AND DOT 
THUS IF IT OVERFLOWS INTO THE USER AREA NO HARM IS DONE. 

ONCE ONLY CODE IS DIVIDED INTO 3 PARTS 
1. MANDATORY ONCE ONLY ( L INi'SR ) - NO CTY NEEDED 

(GOOD FOR REPEATED STARTUPS DURING DEBUGGING 
?. USUAL SHROT ONCE ONLY Cf^0E{ONCE) - CTY FOR DATE AND TIME 
3. OPTIONAL ONCE ONLY CODE - CTY DIALOG TO CHANGE MONITOR 
OR REFRESH DISK(ALT-HODE INSTEAD OF CR AFTER TIME) 



ONTEa 
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INiITULI^f URIOSITY CHiXMi^L'^ ftN'' SETU° INTERRUPT SERVICE ROUTINE CHAIN 



00Pli3Jl T = TAC 



iOEFINE AC^U^'ULaTOR T 



jLINK to service RnuTlNiES 

INTERNAL LIVKSCETSHEL 
EXTERNAL JOeSYM, jOnPFI .XJBPFI 

(<0aap0 5i000t'0 00!!a5i0 li^iksr: " 

00?0?1 205il40 0000PI0 WOVS! T.JOBPFI 

("0/0;'2 2021:140 000000 I'OVt^ T.vJBPFl 

IF\i FT2RF,L.< 

("0!?3f3 2640;i0 000iii> jSj" TSTHFG 

> 



iCALLEO WITH JSR FROK SYSINI 

ISET LM OF XJBPFI WITH jnBPFI 

ILOAOER nORES NOT HANDLE GLORALS IN LH 

iCn TEST IF TWO RELOC REGISTERS EXIST 
IHIGHEST LOC, IN JOS AREA PROTECTED FROM 10 



ONCE" 



riUCF. OMLV OprRATOR UIALOGUF A'MO 
T. HAST!»JGS/RCC/CH'^ TS l". 4 JUM 



jf^VlCF I^'IT. (nuRRTUGHS OISK) "ACR0,V36 19!08 



4-JIIN-69 PAGE 1* 



S7 








48 








■^9 








60 








ftl 








^2 








66 


00!"0(»4 


403240 


a0''30B 


ft<J 


00000b 


7002?0 


0i''a00 


ftS 


00("0;^6 


201040 


000400 


66 


f 00077 


271240 


002000 


^7 


000010 


200 1?5 


000000 


68 


5"0?011 


700340 


0100f10 


69 


000012 


367040 


000007' 


70 


000013 


275240 


000 700 


71 


00001 4 


2A40-/0 


000141' 


72 








73 








74 


00C015 


5741"0 


? j. 4 


75 








76 








77 








78 


f 0001 5 


322i:"0 


'1 7 4 ' 


79 


E"0001 7 


2130:'0 


007Jf>2 


pa 


000020 


550040 


000014 


hi 


000021 


271042 


000 3 


B2 


000022 


504040 


000002 


83 


000023 


275241 


000 01 


B4 


000024 


542240 


000031 ' 


85 


000025 


200170 


000014 


86 


000026 


271li^5 


000071 


H7 


000027 


202100 


000000 


88 


000030 


200171 


777777 


89 


000031 


202101 


000031 ' 


90 


000032 


274040 


002317' 


91 


000033 


32504ti 


000030' 



;MnVF SYmBTL table up I^i Mi^i^^RY 

;t.XKC MUST cF LOiOED Iv 15k OR LFSS IF GOIMG INTO 16K MACHINE 

iFlRSI FINfl THE rl=?ST LOCATICM OF NO^-E X I S TE'-'T MFMOHY 



FXTE^N OnTSY" 

?tT^=l OAT.IOS 
rO\'L APR.NXM 
"OVEI TA';,tD256 
AC 01 DAT. 2 0!? 
"OVE TACl, (DAT) 
CON ST APRiNXM 
'5UJG TAG, .-3 
SUB I DAT, 700 
JSR MOVSTP 



HLf!E TACl.UU'^ 



i M 



STOl! 



JUMPE 
"OVXS 

ADOI 

HRL t 

?URI 

HRRm 

MOVE 

ADOI 

MOVE" 

MQVE 

MOVE" 

?UR T 

JUMPG 



I 

TACl, J^STIl 

TACl 
T4C.UUC 
TAG, (TACl) 
AC, TACl 
DAT.KTAC) 
UAT,STO] 
TACl.UUO 
TACl.KOAT) 

TACl, aoTSYM 

TACl,-l(TAC) 
TACl, . (TAG) 
ACrXWD 1,1] 
E TAC, .-3 



I 
I 

'^Tr THA 

JOi;SVM( 

IS FIRS 

I 



(ACCOMU 
CLEAR ^ 
IN CASE 
TRY NEX 
REFFREK 
NON-EXI 
NO, KEEP 
MAKE RO 
MPVF 00 
(OOTSY 
IF NOT 
-LE^'GTH 
T THE S 
JOAT) T 
T GREAT 

IF MO 
♦ L EMGTh 
FIRST A 
LENGTH* 
X'-ID LEN 
."JEW LAS 

01 ST, T 
-N,FIRS 
FORM NE 
STORE I 



LATjr !0S must ALSO RE CLEARED FOR SCNSER) 
ON-EX MEM FLAG 

MEMi-IRY HAS NO MOM EXISTANT RANK* 
T IK BLOCK 
CE THIS LOCATIOM 
STENT? 

LOOKING AS LONG AS MOT TOP OF MlfNORY 
OM FOR TENDUMP AT TOP OF CORE 
T SYMBOL TABLE POINTER TO LOWER f-ORl 
M=36) WHERE EXEC ODT EXPECTS IT, 

ALREADY MOVED TMERE, RETURN POI-irTER IN UUO 

OF S. T. 

YMBoL Table pointer is moved FROif 

DDTSYM(jaAT) HY SYSMAK WHEN Thf^ SYSTEM 
ED, 

s. t, to move up 



ODRESS 

FIRST AUORESS 

GTH.LENGTH+FIRST ADDRESS 

T+l-OLO LAST+1 

MOVE 

T AQO, 

w s.T, pointer 

N LOWER CORE 
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95 


5100034 


200040 


002320' 


96 


000035 


25104B 


000061 


9 7 
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99 








1?I0 


000036 


332030 


000000 


11»1 


000037 


254000 


000060' 


1«2 


^00040 


205040 


000000 


1^3 


!»00041 


554241 


000000 


1!?4 


000042 


405240 


000007 


1.75 


000043 


242240 


000001 


1('6 


000044 


322240 


000056' 


vn 


17100045 


2002P5 


000040 


i?a 


000046 


200240 


000004 


1P19 








11 


000047 


200205 


000001 


111 


0000S0 


607200 


000740 


112 


000051 


2540.12 


000046 ' 


113 


00171052 


2001^1 


000041' 


114 


000053 


50510Z 


254000 


115 


000054 


2021f'5 


000001 


116 


000055 


2022:^2 


000001 


117 


000055 


253040 


000057' 


11B 


000057 


253040 


000041' 


119 


000060 






1?0 








1?1 








122 








123 








124 








125 


000060 


201140 


000000 


126 


000061 


260140 


000000 


177 








128 








129 








130 


000062 


200040 


000066 ' 


131 


000063 


202040 


000001 ' 


132 


000064 


336000 


000036' 


133 
134 
135 


000065 


254000 


000000 








136 








137 








138 


000066 


254020 


000000 1 



EXTERN DEVLST. INTNIJM, INTTAR 
I'SETUP LOCATIONS 40 THRU 61 

JRSTIl! HOVE TAC.CXWD LOC40,40] iSETUP LOWER CORE PI LOCATIONS 
PLT TAC.61 

;LINK device service routine"! TOGETHER - IE MOT LOADED BV PUILO 



INTLOPI 



INTLPl! 



MOPICH 1 



ALRCHN ! 



SKIPE DEVLST 

JRST ALRCHN 

MOVSI TAC.INTNUM 

HLR^ DAT, INTTA9(TAC) 

ANOI OAT, 7 

LSH DAT,! 

JUMPE DAT,NOPlCH 

HOVE ITEm>40(DAT) 

f<OVE DAT, ITEM 

^OVE ITEM.KOAT) 

TLNN ITEM, 000740 
jRST INTLPl 
«OVt TACl, INTTAB(TAC) 
HRLI TACl. (JRST) 
MOVEM TACl.KDAT) 
MOVEH ITrM,l(TACl) 
AORJN TACii+l 
AUBJM TACINTLOP 



IFN ETDIf;K.< 



INITIALIZE DISK 



EXTERN NULPOL>OSKIN[ 

HOVEI pdp.nulpdl 

PUShJ PDP.nSKlNI 



MOVE TACJRSTI 
MOVEM TACLlNKSR + l 



IHAVE SERVICE ROUTINES ALREADY BEEN CHAIkED TOGETHER? 

lYES, MUST HAVE BEEN LOAOEO WITH 3UIL0 

INO, NEG. NO, OP SERVICE R0UTINES»2 

IGFT NEXT PI NUM9ER 

IHASIC OUT NUMBER OF DDB'S 

ISHIPT LEFT DNF SO MATCH PI LOCATIONS 

lOOES THIS DEVICE HAVE A PI CHANNEL (PTY)7 

lYES, PICK UP JSR CH'N FROM LOWER CORE 

(SAVE IT IN DAT (EITHER 4 JRST UEV'NT OR 

I JEN fCH'N 

IPICK UP INSTR, FOLLOWING INTERRUPT CONSn 

MS IT A JEN? 

INO, KEEP LOOKING 

lYES. LAST DEVICE SO FAR, GET OEV'NT 

IMAKE JRST INSTIL. 

(CHANGE JEN UCH'N TO JRST DEV'N" 

IMAKE DEV'NT+1 BE JEN SCH'N 

IPICKUP EVERY OTHER WORD? 

lANY MOVE INTERRUPT SERVICE R0U"INES7 



SKIPN DEVLST 
JRST LINKDB 



JRST! : JRST UL INKSR 



J INITIALIZE THE DISK 

I AFTER SETTING UP CHANNEL LOC 

I BUT BEFORE OVERWRITING ONCE WITH DDB' 



IDO ONCE ONLY 



IHAvr DEVICE DATA BLOCKS BEEN LINKED? 

!N0, GO LINK DATA BLOCKS 

IRETURN (»LINKSR 

J1ULTIPLE DEVICE DATA BLOCKS ARE CREATED 

IAS SPECIFIED BY SYSSIZ AND MAY ERASE PART 

lOF ONCE ONLY CODE 

lYES, RETURN 
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1^9 
140 
141 
142 
143 
144 
145 

146 
147 
148 
149 
150 
151 
132 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 



EXTERN UliOC, ERROR. UUnZ.LINKDR.DEVLST 
EXTERN CH1,CU2>CH3,CH1,CH5,CH6,CH7 



00C067 0000?:0 000000 



000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
("00100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 



264000 
2640/10 
265240 
264000 
265240 
264000 
265240 
264000 
265240 
2640J-0 
265240 
264000 
265240 
264000 
265240 
000000 



000000 

000000 

000000 

000000 

000072 ' 

000000 

000074 ' 

000000 

000076' 

000000 

000100' 

000000 

000102' 

000000 

000104' 

000000 



LOC40! 
INTERNAL UUOTRP 
UUOTRP! JSR UUO0 
JSR CHl 



JSP OAT.ERRQR 

JSR CH2 

JSP DAT, ERROR 

JSR CH3 

JSP DAT, ERROR 

JSR CH4 

JSP DAT, ERROR 

JSR CHS 

JSP DAT, ERROR 

jSR CH6 

JSP OAT, ERROR 

JSR CH7 

JSP HAT, ERROR 



lUUO PC 



ITD UUO HANDLER 



'110 2640^0 000002 



UUO) 



JSR 



UU02 



iUOC 60/61 TRAPPED TO FOR UNI MPLEMENTED OP COOES ON PDP-10 

lOP CODE 100 IS USED TO DISMISS USER MODE I NTERRijI^TS ( SEE TRPSET 

IGO SEE IF OP CODE 100 OR SOKE, OTHER ONE 



HNCED . OMHE ONL'' OPTRATOR DIALOGUE AND IC D'^VICE I M 1 T , ( quRR'^UGHS DISK: 
T. HAST I\GS/"CC/CHW TS «■» JUN! f-9 V-tl^ 
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1'3 

le>4 

166 
lft7 
168 
169 
17e 
171 
172 
173 
174 
175 
176 
177 
178 
179 
110 
Ifll 

I 62 
1S3 
1S4 
1S5 
1S6 
X<^7 
1R8 

ie9 

190 
191 
192 
1''3 
194 
195 
196 
197 
198 
199 

2.'1 
25>2 
2''3 



IF>J FT2RFL.< 

iSFT LOG 1W0REG TO -1 IF MAC"IME HAS TWO RELOC REG.0 IF (INV ONE RELOC REr. 
FXTEf^N Tuiu^EG .StGN.SEGPTR,ANr>2RG.J0BM 



I'BC.lll 
("00112 
?0(»113 
P>0Pil1 4 

t!0fll'3 

caciie 

("0P117 



fl0012U 
C0(1121 



fi0(?l?3 
5'00124 

(»01'125 
?00126 
C00127 

("0013a 

(»00131 
000132 
?00133 



00PI134 
000135 



00C136 
00C113/ 
000140 



S"000;'0 
200040 
202040 
7002f0 

202040 
7006t'0 
7 014 



254040 

2 0040 



00 0122 2017 4 2 



2 b 1 7 4 
7 4 00"0 

^?;0 03i'0 
4020"0 
700340 
4760i>0 
70021'0 
201040 
406040 



2110 4 
505040 



206040 
7006C-0 
254020 



00'^000 TSTHFC: 

002321' 

000041 

020001 

000042 
012300 
002322' 



000121' 
4001(10 



400000 



400017 

000000 

000000 
000000 
020000 

000126' 
020000 

000000 

000130' 



000000 
000000 



000000 
010000 
000111' 



"GVE TAC.CJSR tsTAPR"' 
i^UVE^ TAri4l 

nu'^0 APR , ILM : 1 



IREPLACE UUO JSR WIT A JSR HERE IN ONCE 



ITURN ON PI f. ASSIGN ILM FLAG 

IFOR POSSIBLE ILLEGAL MEMORY REF 8EL0W 

IPUT A jSR IM CHAN 1 INT, LOG, 

ICLR PI SYSTEM, ACTIVATE PI SYSTEM, TURN ON CHAN 1 

TATAH APR.tXk'O 3 7 67 76,000400] )SET LOW AND HIGH SEG TO 128K LO^jG 

I EACH STARTING AT ABS LOC 
I RELOC, FOR HIGH SEG IS 400000 TO DO THIS 
lENTER USER MODE .♦! 

ITRY TO REFERENCE REL LOC 100 IN HIGH SEr, 
I AVOID SHADOW ACS WHICH LIKELY HAVE BAD 
IPARITY CAUSED BY POWER TURN ON AND TURN OFF 

MOVE! 17,4^0000 IMOVE HARDWARE ACS INTO SHADOW ACS TO CLFAR PARITY 



MOVEM TAC,42 
rONO PI ,123071 



JRST 1,.*1 
MOVE TAC, 40010;? 



RLT 17,400017 
CALL 



SETZM TwOREG 
rONSO APR, ILM 
SETDM TwCREG 
CONO APR, ILM 
MOVEI TAC,AND2RG 
ANDM TAC.TWOREG 



MOVNI TAC.SEGN 
HRLI TACJOBN 



MOVSM TACSEGPTR 

roNo PI , 10000 

JRST STSTREG 



IIF HARDWARE ACS TURNED OFF, ACS WILL BE PRESERVED 

iSTOP WITH SHADOW AC 17 

JCOME TACK TO EXEC MODE AT T'^TAPR 

IPLACE TO SrnE JSR PC 

(ASSUME MO SECOND REG. 

;WAS MEMORY REF OUT OF BQU>.!DS? 

INO, MUST NAVE SECOND REG. HARDWARE, SET -1 

ICLEAR APR FLAGS AGAIN 

1=0 IF SOFTWARE CANNOT HANDLE 2 SEG(NULSFG LOADED) 

l=-l IF IT CANfSEGCON LOADED) 

JTWOMEG SET TO AND OF SOFTWARE AND HARDWARE CAPABILITIE 



ISET LH OF POINTER TO FIRST SEC IN IN JBTXXX TABLES 

ISFT RH OF POINTER TO FIRST HIGH SEG 

ITHIS MUST BE DONE HERE BECAUSE SEGPTR APPEARS IN FIR 

I WHICH BUlLO FORBIDS FROM HAVING EXTERNALS 
IPOINTEH USED FUR AOBJN LOOPS 
ICLEAR PI SYSTEM 



OMCE- 



27-A 
2:«5 
25-6 

2?8 

2i19 

210 

211 

2t2 

213 

211 

215 

216 

217 

21H 

219 

2?K 

2?1 

222 

■l->!> 

2?'l 

2?5 

2?6 

25 7 

228 

229 

27.% 

2.U 

232 

2i'i 

2.?'! 

23 5 

236 

237 

238 

239 

210 

211 

212 

213 

211 

215 

216 

217 

218 

219 

250 

Sbl 

252 
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;H0UT1ME TO FIlviD THE EXEf ODT SY«GOL TABLE POINTER AMD MOVE IT TO THE PLaCE 

iWHERE EXEC TDT rxPECTs I T ( DnTSYw:36 ) 

iTHE MONITOR CAN BE UO.\DED I" ANY OF 3 KAYSflN ORDER OF PERFFRENCE)! 

; 1. UNOE" TIME SHARIMG WITH REGULAR LOADER AND COMMON 

; 2, UNDER REGULAR 10/3!« MONITOR WlTh REGULAR ia/3a LOADER AI>JD COMMON 

; 3. UNOER SPECIAL 10/3'' MO" I TQR ( SPMQN ) t, IT H BUILD 

;ThE 3 HAYS LEAVE ODTS YM ( 36 ) , JOBS YM (116 ) , T30SYM (1 31) IN DIFFFRFNT STATES! 
) DDTSYM(36) J0RSYM(116) T3!)SYM(131) 
! 1. JUNK S.T.PTR JUNK 

' ^. JUNK JUNK(NON-NEG) S.T.PTR 

! 3. S.T.CTR S.T.PTR JUNK 

iCALL! JSR MOVSTP' 

) RETURN WITH AC UDO SET T" SYMBOL TABLE POINTER 

;CALLEn FROM MANDATORY ONCE ONLY CODE AND 141 STAKT CODE ( WM I CHEVER OCCUR"!; FIRST) 

INTERN MOVSTP 

FXTE°N T30SYM,JonSYM,DOTSYM,DDTx,SYSODT 



"00111 '300n;'0 P00t'?a ><OVSTP! 



000112 
1^00113 
000111 
00(?115 
000115 
000117 
000150 

000151 
000152 

000153 

000151 
000155 
000156 



25l0-.'0 
2006;10 
3310:'0 
2540^:0 
2006!'0 
3320t<0 
?006;"0 

202600 
201010 

542a10 
201010 
542010 
2006^0 



MOVJMH ! 



■20^113' 

000000 

0000?0 
000151' 
000144 ' 
000061 • 
000027' 

000150' REGT30: 
000000 

000000 

000156' 
000112' 
000151' SETUUO! 



000157 251020 000141' 



JRST .*1 
-^OVE UIIO,T30SYM 
SKIRL JOBSYM 
JRST RFGT30 
"OVE UIIO.JOBSYM 
SKIpF DEVLST 
MOVE UUO.DDTSYM 

MOVEM UUO.QQTSYM 
"OVEI TACiDDTX 

hKRm TACiSYSDDT 
MOVEI Tac, SETUUO 
MRRM TACMOVJMP 
MOVE UUO.ODTSYm 



JRST SMQvSTP 



;jSR HERE FROM MANDATORY ONCE ONLY CODE AND 

I FIRST JUMP TO EXEC DDT IF BEFORE MONITrtR STARTED 

IPATCHFQ TO SETUUO AFTER FIRST EXECUTION 

iASSUME LOADED 3Y REGULAR 10/30 

iOR IS JOBSYM NEGATIVE(MEANIMG IT IS S.T.PTR)? 

iilAS LOADED BY REGULAR 10/30 

JASSUMF LOADED BY TIME SHARING MONITOR AiD LOADER 

IOR HAS OUILD PATCHED THE DD? CHAIN? 

lYES, DDTSYm HAS SYMBOL TARLE POINTER AS ^STORED 

1 BY SPMON 

)STORE THE SYMBOL TABLE POINTER FOR EXEC DDT 

!MAKE SYSTEM STARTUP LOCdH) GO DIRECTlV TO EXEC 

) DDT AND BY PASS THIS FOOLISHNESS 

)MAKE SURE THIS IS DONE ONLY ONCE 

(RETURN The C0RHECT(MAYBFUPDATFD if 

I EXEC DOT PATCHES MADE BEFORE MONITOR S*iVED OR 

! STARTED) SYMBOL TADLF POINTER 

(RETURN 



(HERE IF EXEC DOT IS STARTED UP PEFORE MOMTnR(TO MAKE A PATCH FDR EXAMPLE) 



INTERN PaTSYm 
EXTERN OnTX 

000160 2610;'0 000111' "ATSvM! JSR ''OVSTP 

000161 2540JI0 000152' JRST DDTX 



IMOVE DDT SYMBOL TABLE POINTER SO EXEC DD^T WILL 
) FIND IT AND PATCH 111 TO GO DIRECTLY TD EXEC DDT 
(AMD GO DIRECTLY TO EXEC DOT 



0NCE9 - ONCE 0^!LY OPERATOR DIALOGUE: AND ID DEVICE I N I T . ; SURRnUGHS DISK) MACRO, V36 19!I38 
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253 








254 








295 








256 








257 








258 








259 


P10P162 






2h'i 








2^1 








2-^2 








263 








2^4 








265 








266 








267 








268 








269 








270 








271 








272 








273 








274 








275 








276 








277 








278 








279 








2'^'i 








2=?1 








2»2 








e-^s 


'0?162 


0000!'K 


000000 


2«4 


?'a?i63 


201040 


H000!'0 


2'^5 








2^5 


70PHf,4 


202i"42 


000000 


2"7 








208 








2-9 








230 








201 


(«aKi65 


200140 


002323' 


2')2 


?'0?lft6 


263140 


001006' 


29 3 


K00167 


26^140 


000000 


294 


^0717^ 


201040 


00000 


2-15 


K00171 


260140 


000000 


295 


r'00172 


201043 


002324' 


297 


Ci)0173 


260140 


000171' 


298 


1!10(?174 


201040 


000000 


299 


000175 


260140 


000173' 


3^10 


000176 


201040 


001077' 


371 


000177 


260140 


000175' 


3;'2 


t"H0200 


260140 


000734 ' 



:CNCE ONLY CODE - OPERATOR SETUP DIALOGUE 



JTHIC SY>'BOL IS SOLELY TO PERMIT THE SYSTE'* 
! BUILDER TO RETRIEVE THE CORRECT RIMARY FILE, 



lEN FTRC10. < 

ENTRY RCXW\i^ 

RCXWMii I 

INTERNAL ONCE 

> 

IFE FTRC10. < 

ENTRY ONCE 

> 

EXTERNAL CONMES,RADX10,CRLE.'^ECIN1.OCTPNT 
EXTERNAL CONFIG. SYSDAT 
INTERN FTTTYSER 
IFE FTTTYSER, < 

lEFpiE SFTTYO <m0VE nAT,LINEP> 

HEFpiE TYPE <IOPB CHR£C,DaT> 

TtFIML NEXTc <lLnB CHREC.TAC>> 
IFN FTTTYSFR,< 

DEFIME SETTYO <PUSHJ Pnp,OTSET> 

TLFIML TYPE <PilSHJ PPP,01ITCHS> 

PEFINE NEXTC <PUSHJ POP , r,ETCHR> 

TSETHF.SETBFI . SCNOOB , TT I BUF , TT08UF , OUTCHS • GETCHR , T I BF , TOPF 



EXTERN 
> 



INTERN PaTSI? 

EXTERN Patch 

ONCE! "■ 

PATSU! MQVEI TAC. patch 
wDVE^ TACSYSSIZ 



ISET SIHE OF SYSTEM TO BEGINING OF PATCH 

IIN CASE ONCE ONLY DIALOG RESTARTE!) pEF: = E GvE = .hS : '^ ^L\ 

IPATSIH SHOULG be updated EVERY TME A PaTCH 

1 IS MADE, SYSSIZ SHOULD ALSO BE U'OATEO IF 146 

r START IS GOING TO BE USEDtDDT DE3UGGINr, OR CTY OQW\) 



i^OVE P0P,[XW0 -ONCEP'i.ONCEPD] 
SETTYO'PUSHj POP.OTSET' 
pUShJ PDP.CRlF 
MOVEI TACCOVFIG 
PUSHJ PUP,C0*,MES 

MOVEi tac.casciz / /: 

PUSHJ PDP.COVMES 

"OVEI TAC.SYSDAT 

PUSHJ POP,CO^'MES 

MOVEI TAC.TSEXEC 

PUSHJ PDP,CO\'MES 

PUSHJ PDP.OPOUT 
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373 
37"l 
3?5 
676 
i7,7 
308 
3!»9 
31 a 
311 
312 
313 
311 
315 
316 
317 
318 
319 
3?0 
iV.l 
3?2 
323 
32t 
325 
326 
327 
328 
329 
3."'B 
331 
iZ2 
333 
iT-A 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 



iASK FOR TODAY'S DATE AlvD CO^'VERT 

;DATE STORED AS ( ( Y-64 ) »12 , +w-l ) »31 . *D-1 



!?002?1 
?!002f 2 
C002!»3 
0002^4 
P!002P'5 
00P'2?'6 
f 0fl2?i7 
000210 
f0(?211 
C00212 
(^00213 
00021 4 
000215 
000216 
000217 
000220 
000221 
?I00222 
000223 
000224 
000225 
000226 
000227 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
00023/ 
000240 
000211 
00t"2l2 
000213 
000244 
000245 



260140 
254000 
4020"0 
201040 
260140 
'260140 
260140 
254000 
260140 
260140 
254000 
254000 
332000 
303lf/0 
254000 
275100 
2211^0 
272100 
260140 
260140 
254000 
251000 
332000 
303100 
251000 
275130 
272100 
260140 
260140 
254000 
254e;«0 
301100 
303100 
254000 

2;5i"0 

221100 
272i:'0 



EXTERNAL 



000203' 

000201' 

000000 

001101' 

001002' 

000734' 

003670' 

000203' 

000000 

000000 

000203' 

000203' 

000002 

000014 

000203' 

000001 

000037 

000203' 

000000 

000212' 

000203' 

000203' 

000002 

000037 

000203' 

0000C11 

000222' 

000223' 

000224' 

000203' 

000203' 

000105 

000143 

000203' 

000100 

000561 

000233' 



THSOAT.JIEMiM, SKIPS 



pushj PDP.DATLOP 
JRST ,-1 
DATLORl SET2M THSDAT 

MOVEI TAC.TODATE 
PUSmJ PDP. ICONM 
PUShJ PDP.OPOUT 

PUShj pdp.getlin 

JRST DATlOP 

pushj pdp. Skips 

pushj pdp.decinl imonth 

jrst datlop 

JRST DATlUP IERROR 

SKIPE TACl 

CAILE TAClitD12 

JRST DATlOP 

SUBI TAC1,1 

IMUlI TACl.fD3l 

ADDM TACl, THSDAT 

MEXTCtPUSHJ POP.GETCHR* 

PUSHJ PDP.DECINl IDAY 

JRST OATlOP 

JRST DATlOP 

SKIPE TACl 

CAILE TAClit03l 

JRST DATLOP 

SUBI TACl.l 

ADDM TACliTHSDAT 

NEXTCfPUSHJ PDP.GETCHRt 



PUSHJ POP.DEClNl 
JHST DATLOP 
JRST DATlOP 
CAIL TAC1.»D69 
CAILE TAClitn99 
JRST DATlOP 
SURl TACl,tD64 
IMULI TAC1> tD12»»D3l 
ADDm TACI.ThSDAT 



(YEAR 



(YEAR 2ER0 



ONCE-' 
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345 






iGET 1 !M 


346 








34/ 






EXTERNAL 


348 








349 


70(1246 


262110 


00(»2.P1 


3 = 51 


''0(»24/ 


260140 


00R251' 


3'-l 


f0?25e 


?54^,.?0 


000247' 


3?2 


(100251 


4020 ;'-0 


000000 TIMLOP: 


35J 


?0?252 


2 010 4 


001113- 


J'^4 


5<a0253 


260140 


0010?I2' 1 


3?5 


l?012'54 


260140 


000734' 1 


3'56 


00H255 


260140 


000670' 1 


3 = 7 


?0?256 


2540?0 


000251' 


i'S8 


PI00257 


260140 


000211' 1 


SSQ 


P10C260 


260140 


000235' 1 


36f 


(»0(1261 


2S4KI'0 


000251' 


3M 


1?00262 


?540i'e 


00t;251' 


362 


000263 


2 k) •! 


0000''2 > 


363 


!»0?264 


231040 


00^144 


3^4 


00?2A5 


3310:'0 


000031 


3'b 


P!0I''2f 6 


303040 


00CK27 ( 


3f'b 


f0l?267 


2540"e 


000251' 


3'-7 


!>0P!27i» 


303l"0 


000073 ( 


3^0 


i'aPlZ?! 


2540i'0 


5103251' 


369 


P'0("272 


22104fc! 


000074 


37B 


^00273 


273040 


0000(12 1 


371 


C00274 


221040 


000000 ; 


372 


00f<275 


202040 


000251' f 


373 








374 








375 


C0C276 


3252;'0 


000466' 


376 








377 








376 









TIME 

POP PDP.TAC 
pUShj PDPjTimLOP 
JRST .-1 
■^tT?^ TIME 

^ovei tac.timeu 
pushj pop, iconm 
PUShj pup.opout 

DUShJ PUP.GETLIN 

JNST TIMLOP IJUST A CR 

PUShJ POPiSKIPS 

PUShj PQP.OECIVl SREAO ThF TIME (1-4 CHARACTERS) 

JKST TIMLOP INO IRGUMEMT 

JRST TIMLOP JILLi^GAL CHARACTER 

"OVE TACTACl 

IDIv! TAC,»Dia0 I TAC=HRS. TAC1=MINS 



«:kIPI 

CAIlt 

JRST 

CAILE 

JRST 

IKDLI 

ADD 

IMULI 

MOVEM 



TAC 

TAC, t023 



iHRS MEG4TIVE? 
iQR .G, 



23? 



TIMLOP lOUT QF "OUNnS 



TACl, '059 



TIMLOP lOUT OF POUNDS 



IMINUTES .G, 59 



TAC, »O60 
TACTACl 
TACJIFMIN 
TACTILE 



JU^PGE ITEM.QiJICK 



(CONVERT TO "INJTES 
IMINUTES SIMCE MIDNIGHT 
IJIFFIES SINCE MIDNIGHT 
!TIME=JIFFIES SINCE ^lONIGHT 



ISKIP MEXT PART OF DIALOGUE UNLESS THE LAST ITEM 
! TYPEO IN (MAMELY TIME OF DAY) WAS TERMINATED BY 
I AN "ALT MODE". (ACCUMULATOR "ITEM" IS SET UP 
i IN THE "GETLIN" SU3R0UTINE CALLED AbOVF,) 
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3 79 

3110 
3/il 
Z^2 
3?3 
3H4 

305 

3".? 
3,S8 
339 
39? 
391 
392 
393 

394 

395 

306 

397 

308 

399 

4PI0 

4H1 

4:»2 

4'-3 

4,14 

4 1^5 

4l>6 

41'7 

4"'8 

41^9 

4ie 

411 

412 

413 

414 

415 

416 

417 

418 

41 9 

4^13 

4?1 

4?2 

4?3 

424 

425 

426 

427 

428 

429 

430 



EXTERNAL DEVLST,TCONLN, IMLME^.OR-'A^IE. INTTBl, IMTTA8 
EXTERNAL OCTOM 



00Z277 

C0?3?l 
0003C2 

?I0(?3?4 
00H37'5 
("0(?3P'6 

i^af3iu 

(50H311 
!^0("il2 

I?0f313 
.■^0C314 
(«tJS"315 

C"i)Ci17 
PHB320 
("0C321 
H0(?3?2 
a0f<323 
00P1324 
f0?325 
?0C326 
00^327 
C0f"330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000340 
000340 
000341 

00034k; 
000343 
000344 
000345 
000346 
000347 
000350 
000351 
000352 
000353 



?640?t; 
201040 
260140 

201040 
3320:'0 

201040 

26014f 
250140 
202450 
415344 
435341 
2 6 014 

201010 
260140 
554640 
325640 
205340 
336547 
254070 
1356CB 
550040 
250140 
250140 
2000-?0 
510115 
260140 
363600 
260140 
236460 
250140 
253340 
263340 
254000 

201040 
510215 
5546'S5 
322640 
510115 
316100 
344040 
200340 
250140 
2014?'0 
260140 

?016:"E 



000111' 
001200' 
001002' 

00^071 

000133' 
000072 

000000 

5 4 5 2 3 6 
051212 
505000 
000/34 I 

001 120' 

001002' 

000147' 
000340 ' 

00 4 0' 

000000 

3 3 5' 

002325' 

000014 

0003:^5' 

000306 • 

000000 

000^00 

0000?!0 

000334 • 

000325' 

000000 

000157' 
000336' 
000320 ' 
000356 ' 

000001 

000000 

00?/i73 

000317 I 

000000 

0B:'004 

000342' 

000301 

000324' 

000040 

000000 

000003 



IFk' FT2Rf:|_,< 

JSR TSTREG 
»OVtI TAC.CRlFmS 
PU?HJ PDP.ICONw 
"C^tl TAC.l 
SKIPF TwoHEG 
"OVEI TAn.2 
PUShJ PDP,RADX10 
pUShJ POP, I\LMFS 
ASCI? / RELOC. REG. 



CONFLPI 



SINGLEl 
NODDRi 



ALRLNiKI 
0NCE5: 



0NCE4: 



0NCE6! 



!TEST IF 2 RELOC REG SET TWOPEG OK-1 
IPRIMT CRLF 

1 ASSUME 1 



INO, SEcni^O REG EXISTS 



PUSHJ POP.OPOUT 

"OVEI TAC.IOCOMF 

dUShj POP , ICON-H 

HLR2 ACI.DEvlST 

JUMpv ACl.ALRLMK 

"OVSI PROG, Ir^TMUi^ 

SKIFf' ACl, lMTT91(PR0f:) 

JRST mODB 

LDB UUO.rPQINT 8. I'^TTAB(PROG).a] 

HRR^ lAC.UUD 

PUShJ ''UP,RADX10 

PUShJ pop, inlmfs 

ASCI? / / 

HLl'i TACl.OEVNAMiACl) 
PUShJ PDP.PRMA^E 
SOJLF UUO. SINGLE 
PUShj pop, INLMFS 
ASCI? /'$/ 
PUSh.J pdp.crlf 
40PJ^. PROG. . + 1 
AORJV PROGiCnNFLP 
JRST 0fJCE7A 



lOEVICE HATa BLOCKS ALREADY LI^'KED? 

INO, NOT LOAOEO RY BUILD, -»'0. OF QEVICES«2 

!!M LOG HAVE ntv DATA eLOCK? 

INO, GO GET ^'EXT DEVICE OATA BLOCK 



IPRIMT 

; IM DECIMAL 

;PRINT 1 SPACE 



!YES. ^10. OF DFV OATA BlKS 



(DEVICE NAME 
IPRIMT IT 

MS THIS JUST A SIMGLE 0FV1CF7 
iNO, APPEND 'S TO DEVICE (vAME 

IPRINT CR LF 



f 

IFINISHED ALL DEVICES? 
I YES 



»o\i£: TAci 

HLL? ITE'/.DEVNA.XIACl) 

MLRrf AC1,DEVSER( ACl) 

JUMpr ACl,0NCE6 

WLLZ TACI, DEVNA'^t ATI) 

CA^N TACl,ITEM 

AOJA TAC,0NCF4 

MOVE PPOG.TAC 

PUSHJ PDP,RAnX10 

MOVEI CHREC," " 

TYPE'PUSwj PTP,0IJTCH='t 

■^OVEI UU0,3 



(SAVE MO. 



ONCER 
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4:^1 


fiep:354 


200040 


002326' 


A?,2 


C!0t«355 


1344('.0 


0000(11 0NCE7: 


4:^3 


<?.MJ,5b 


2714('0 


000040 


4i4 


7:WZ^7 


260140 


000352- 


43b 


000360 


367600 


000355' 


436 


!'00361 


201040 


002327' 


437 


00PI362 


303340 


000001 


438 


!»0Pi363 


260140 


000177' 


439 


W00364 


260140 


000334' 


440 


000365 


326640 


000340' 


441 


!''00366 


260140 


000734' 0NCE7At 


442 


^00367 


201040 


001200' 


443 


0)00370 


260140 


001002' 


444 


000371 


201040 


000000 


44S 


000372 


260140 


000/100 


446 


['00373 


260140 


000332' 


447 


000374 


201211 


741650 




C00375 


406305 


120250 




000376 


522624 


0516C6 




"00377 


406351 


642644 




0004('0 


202311 


147212 


446 


■71(304P'l 


514321 


200000 / 


449 


0004P2 


260140 


000734' 



/'sn 



MOVE TAC, [POINT 6, ITEM] 

ILOB CHRECiTAC 

AOOI t;HRECi40 

TYPE'PUSHJ PDP.OUTCH';* 

SOJG UUO.ONCE? 

MOVEI TACCASCI? 

CAILE PROG.l 

PUShJ pOPiCONMFS 

pushj PDP.CRLE 

JUMPN AC1,0NCE5 

PUSHJ PDP.OPOUT 

i^OVEI TAC.CRLE^S 

PUSHJ PDPi ICflNM 

MOVE! TACiTCONLN 

PUSNJ PDP.OCTPNT 

PUShj pop, INURES 

ASri? / (OCTAL) TTY SCANNER LINES 



PUSHJ POP.OPOUT 



IPRINT NO, OF TTY SCANNER LIMES 



ONCEB 
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45EI 














451 

452 








lASK FOR OPERATORS CONSOLE TO BE SPECIFIED 




453 
4'54 
455 








EXTERNAL INlmES.DEVOPR.CTEXT.DEVPHV 




t1004Pl3 


201040 


001125' 


DNCEOPi 


MOVEI TAC.OPRM 




456 


00(54^4 


260140 


001002' 




PUSHJ PDP, ICGNM 




457 


PI0(!4K5 


260140 


000734' 




pushj pdp.opout 




458 


n004i'6 


260140 


000670' 




PUSHJ PDP.GETLIN 




459 


0004P7 


254000 


000417' 




JRST 0MCE8 IJUST CR 




460 


?00410 


260140 


000000 




PUSHJ pdp.ctext 




461 


000411 


200040 


000002 




move tac.taci 




462 


000412 


316040 


002330' 




CAMN TAC.CSIXBIT /CTY/] ICTY? 




463 


000413 


254000 


000416' 




JRST ,*l !YES. JUST 


STORE 


464 


00041 4 


260140 


000000 




PUSHJ POP.DEVf'HY 




465 


000415 


254000 


000403' 




jRST ONCEOP IPHYSICAL NAME NOT 


FOUMD 


466 


000416 


202040 


000000 




MOVEM TAC.DEVOPR ISET FOR SYSTEM 




467 










IDEVICE "OPR" WIIL 


BF SA! 



IT, 
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468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
4BB 
4P1 
4fi2 
483 
484 
485 
486 



^ae"4l7 
150C4P0 
000421 
0a("4?2 
(»0042J 



f>004?4 
?0("425 
000426 
000427 



20104E 
26P140 
2540?! tl 
201040 
202040 



201040 
260140 
2540C0 
20104k) 



lASK IF SYSMAK IS WANTED 

EXTERN MAKEND.SYSSIg 

001133' ONCE?: MOVE I TAC.SYSM 
00101b' PUShJ PQP.YESNO 

000424' JRST 0NCE2 

0B00510 MDVEI TAC.MAKENO 

00i'164' MUVE^ TAC.SYSSIZ 

i IS EXEC DOT WANTED? 



001145' 
001016' 
000431' 
0000!?.0 



EXTERNAL 



0NCE3; 



DDTEND 

^OVEI TA[;,SYS0M 
PUSHJ PDP.YESNO 
JKST 0NCE3 
MOVE! TACOffTEVD 



(NO SYSMAK 
lYES 



(NO 

IFIRST FREE LOC. ABOVE EXEC DO'' 



487 
488 
4 89 
490 
491 
492 
493 
494 
495 
496 



00f»43a 202040 000423' 



000431 
000432 



261140 
265040 



00/1430' 
00000 



MUVE^ TACfSYSSi? ISET NEW MONITOR SI^E 
iEIND CORE TO RE USET FOR MULTIPLE DEVICE DATA 8L0CKS 
! INCLUDING '-ISK 

EXTERNAL CNTHB 

0NCE3! PUSH POP.SYSSI;? jSAVF CURRENT VAl UE 

JSP TAC.CNTDP ;UPOATE ?YSSIZ BY SPACE USED 

i FOP OEVICE DATA BLOCKS FOR DSK , DT A , MIA , TTY , PTY ) 



OUCZr- . ONCE OMLY OPFRATOR DIALOGUE /i.\n 10 3FVICF I N I T , ( RURRrur,HR DISK) MACRO, V36 19:B8 l-JiJN-a? PAGE 27' 
T. H4ST1NGS/KCC/CHW TS 04 JUN 69 V414 



407 
496 
499 

5?1 

5:" J 
5?i4 
ij?l5 
5P6 
5P7 
5f8 
bP9 
5]0 
5U 
512 
513 
514 
515 
516 
517 
51B 
519 
5?0 
521 
5?2 
5?i 
524 
525 
5?6 
527 
526 
529 

53e 

531 
53 2 
533 
534 
535 
536 
53 7 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 



P'0P'433 
C!01»434 
("00435 
t»0C436 
Pi0C^-437 
[1B('440 
00f 441 
5<0(?442 
000443 



p"0[»444 
000445 
P!00446 
000447 
f)004';B 
0004'51 

C00452 
0004=3 
000454 
000455 
000456 
000457 
000460 
000461 
000462 
000463 
000464 

000465 



000466 



2oi04e 

260141i 

200040 
260140 
201040 
260140 
2 6 ;1 1 4 
260140 
262140 



201040 
260140 
201040 
260140 
260140 
260140 

201E4e 
260140 
26P140 
26^140 
254(;.'0 
260140 
260140 
254000 
254e;10 
3320^0 
542100 



;PRINT OrTAL Sli£ "F M'VMITOR 

21131150' ^<OVEI TAn.EXFClS 

001K:'2' PUShj PDP.ICnNM 

000431' MOVE TAC.SYSSI? 

000372' PU?HJ PDP.OCTPmT 

1^01153' "OVEI TAC. LENGTH 

000363' PUSHJ PDP.CdvMFS 

5500364' PUShj POP.CRLF 

000734' PUSHJ PD^.OPOUT 

fUft35' POP PDP1SYSS12 iRFSTORE SYSSI? PRIOR TO ACTUAL CREATION 

I OF DEVICE DATA BLOCKS 
fXTERN DECIN,CORLIM,USRLIM.RADX10 



001160' QNCE4AI MOVEI TACMXKMES 

001002' PUSHJ PDP.ICON'I 

000^00 MOVEI TACUSRLIM 

000350' PUShj POP.RAnxi0 

^00441' PUShJ PDP.CRlF 

000734' PUShj PQPiOPnUT 

001167' fOVE! TACiOESMES 

001002' PUSHJ PQo.ICONM 1" 

000734' PUShJ PDP,nP0UT 

000670' PUSHJ PUP,GETLI^i 

(^00465' JRST 0\iCE5A 

0002'^?' IFN FTTTYSER,<PUSHJ POP, SKIPS) 

00?000 PUSnJ PO°,DErlM 

000444' JHST ONCE'*A 

000444' JRST ONCEIA 

0000!»2 SKIPE TATl 

000000 HRR.w TACliCORLIiY 

0NCE5A; 



INTERNAL FTDISK 
IFM FTDISK.< 
000465 260140 000467' PUShj PDP.REF 

> 



QUICK! 



INTERNAL 



IPRIN'T "MAX, K CORE FOR SINGLE USER IS " 



IPRI'iT "TYPE DESIRED MAX.(nEC). CR IF OK AS IS 



ILEAVE LIMIT AS SET RY SUILOER QUESTION, 



iUNLESS HE SAID LIKE IN MQMGENi 
IPATCH CORLIM FOR USER CORF SI?E LIMIT 
1 IF NOT PATCHED. LEAVE COMMON'S VALUE 



IGO THROUGH THE REFRESH DIALOGUE. 



iTHIS IS THE SHORT-CUT EXIT TO BY-PASS MOST OF ThC DIALOGUE. 



FTCHFCK 



IFNI FtCHECK,< 

PUSHJ PDP,CK ;GHECKSUM THE MONITOR 4N0 SAVE THE ANSWER, 



000466 254020 000162' 



JRST SONCE 



(•••EXIT FRO" THE "ONCE-ONLY CODE"»o», 



ONCEP 



552 
553 
5S4 
555 
556 
557 
558 
559 
560 
5fil 
5S2 
663 
5*4 
566 
666 
567 
568 

569 
57Z 
571 
572 
573 
574 
576 
576 
577 
576 
579 
5RB 
5«1 
5R2 
5Si 
5fl4 
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:BURRnUGHS DISK) HACRP,\/36 19!08 4-JUN-69 PAGE 2^ 



(50(^467 
00t!47k! 
I^0K471 
PI0(?472 
000473 
["0P474 
000475 
00(?476 
000476 
000477 

a0('530 

000500 
?|005("1 
000502 

5"00503 
000504 
000605 
000506 
0005f"7 
000510 



201040 
260140 
263140 
201040 
260140 
263140 

201040 
260140 
2540!»0 

20104e 
260140 
260140 

250140 
254000 
260140 
260140 
2640'?0 
2540-'0 



000511 552i:?0 

000512 350000 

000513 5421^0 



IFN FT0ISK,< 

EXTERNAL OCTIN.MFDBLK.SATXWD.NUMOLK.SYSPP.REFLAG 



[REFRESH DIALOGUE 



000565' REF: 

001015' 

000000 

000567' 

001015' 

000000 



REF6! 



000574' 
001015' 
000514 ' 

000610' 
001002' 
000734' 

000670' 

000500' 

000457' 

000000 

000500' 

000600' 



REF2! 



000000 
000002 
003000 



IFE 



MOVEI Tir.REFlM 
PUSHJ PDP.VESNO 
PQPJ POP, 
><OVEI TAC,REF2"i 
OUSHJ PDP.YESNO 
POPJ POP, 

MOVEI TAC,REF3m 
PUSHJ PDP.YESNO 
JRST REF3 

MOVEI TAC,REF4m 
PUSHJ POP, ICONM 
PUSHJ PDP.OPOUT 



)D0 VOU Is^ANT TO REFRFSH? 



(YES, 



(YES 



INO 
ARE YOU 



SURE? 



WANT TO CHANGE THE LCC 



;no 

lYFS. DO YOU 
;0F THE MFD? 

INO 

ITYPE LOGICAL DISK ADDRESS OF MFO RETR, INFO 



PUSHJ PDP.GETLIN 

JRST REF2 

IFN FTTTYSER,<PUSHJ pDP,SKIPS> 

PUSHJ PDP.OCTIN 

JRST REF2 

JRST REF2 

FTRC10I < 

PUSH PDP,TAC1 lis IT A MULTIPLE OF NUM9LK? 

MOVEI TAC.(TACl) 

IDIVI TAC.NUMBLK 

JU»<PN TAC1,RFF4 INO 

POP »DP<TAC1 

HRRZM TACliMFDSLK 

AOS TACl 

HRPM TACl.SATXUD 
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4-JUN-69 PAGE 29 



585 


C00514 






REF3! 






556 








INTERNAL FTSWAP 


5<i7 








IFN FTSWAP,<IFN FTRC10. < 


58B 


000514 


201040 


000651' 




10VEI 


TAC,REF9M 


589 


000515 


260140 


001002' 




PUSHJ 


POP/ icqnm 


590 


000516 


260140 


000734' 




PUSHJ 


PDP.OPOUT 


591 


«00617 


201040 


000310 




MOVEI 


TAG, tO200 


592 


000620 


202040 


000000 




MOVEf^ 


TAC,k4SWAP 


593 


000521 


260140 


000670' 




PUSHJ 


POP.GETLIN 


594 


000522 


254000 


000532' 




JRST 


REF3A 


595 


000523 


260140 


000535' 




IFN FTTTYSER,<PUSHJ 


596 


0006?4 


260140 


000460' 




PUSHJ 


PDP.OECIN 


507 


000525 


254000 


000514' 




JRST 


REF3 


598 


000526 


254000 


000514' 




JRST 


REF3 


599 


000527 


3031f»0 


000000 




CAILF 


TAC1,MXK2SWP 


6^0 


000532 


254000 


000514 ' 




JRST 


REF3 


6H1 


000531 


552100 


000520' 




HRRHM 


TAC1,K4SWAP 


6C2 


000532 






REF3A! 






6'?3 








>> 






6?4 














6!55 














6S16 














6P7 


000532 


260140 


001315' 




PUSHJ 


PDP.REFRES 


6P8 


000533 


254000 


000545' 




JRST RFF5 


6'7i9 














61B 














611 


000534 


201040 


000625' 




MOVEI 


TAr.REF6M 


612 


000535 


260140 


001002' 




PUSHJ 


POP. ICON-I 


613 


000536 


260140 


000734' 




PUSHJ 


PDPiOPOUT 


614 














6]5 














616 


000537 


200040 


000000 




MOVE 


TACSYSPP 


617 


000540 


202040 


000000 




MOVE" 


TACREFLAG 


618 














619 


000541 


201040 


000636' 




MOVEI 


TACREFBH 


620 


000542 


260140 


001002' 




PUSHJ 


POP, ICONM 


6?1 


000543 


260140 


000734' 




PUSHJ 


PDP.OPOUT 


622 


000544 


263140 


000000 




POPJ pnp, 



IHOW MANY IK BLOCKS ON THE DISK FOR SWAPPING? 



ITHE DEFAULT ANSWER IS 200 DECIMAL. 



IJUST A CARRIAGE RETURN INVOKES DEFAULT 



(ANSWER TOO BIG ? 

lYFSi REPEAT QUESTION 

INOi SAVE THIS CRUCIAL PARAMETER, 



(REFRESH. 

(ERROR 



(REFRESHING SUCCESSFULLY COMPLETED ! 
(TYPE "REFRESHED '." 



(TO PERMIT AUTOMATIC LOG-IW UNDER 

( PROJ-PROG NUMBER Cl.l] EVEN 

( THOUGH THE LOG-IN CUSP IS CLEARLY NOT 

( ON THE NEWLY REFRESHED DISK, 



ONCEo 
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6?3 
6?4 
635 
6 1' 6 
6?7 
b2B 
6P9 
(,-'!} 
bM 
6:?2 
533 
634 
5-'5 
636 
637 
638 
639 
640 
641 



If E 
REF4; 



C00545 261140 Pasiaci REFSi 



C?0^546 
^00547 
f!0PiS50 
H0C551 
eB0S52 
Pi0?S53 
B0C554 



201'ZI40 

?6i9l4i) 
262140 
260140 
260140 
260140 
2b40:>0 



000630' 

001002' 

0000'JI 

000436' 

000450 ' 

000734' 

000475 ' 



ETRC10. < 
POP PDP.TACl 
MOVEI TAr,REE5>< 
°UShJ POP, ICON" 

pushj pdp,op:5Ut 

JhPT REE? 



PUSH pnp.TAc 

^'OVEI TAC.RlF7>' 
PUSHJ PDP, ICONM 
POP BDP.TAC 
PUShJ PDP.OCTPvt 
PUSHJ PUP.CRUf 
PUShJ PUP.OPOUT 
JRST REF6 



lERROR. ON COMING HERE, TAG HAS LOGICAL BLOCK 
i NUMBER UHICH COULD NOT BE WRITTEN 



iGO BACK TO TRY AGAIN, 



542 



643 
644 



645 
646 



547 



r'00555 
["00556 
000557 
000550 
<'00561 
000552 
000553 
000564 
000555 
000556 
000557 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000600 
000601 
000602 
r'006?3 
000504 
000605 
000606 
000507 



422354 
525012 
521012 
5l2i3e 
5152?4 
425010 
4550''? 
545011 
416445 
050000 
406*50 
476524 
512125 
475«44 
345751 
422354 
525012 
521e]2 
415210 
425212 
202311 
522231 
476144 
425011 
242624 
202072 
"^64240 



054636 
740634 
447500 
651212 
052220 
444646 
720120 
751100 
120032 
003000 
520262 
051652 
054500 
041644 
505000 
054636 
740634 
447500 
147216 
444212 
741602 
747130 
052220 
543210 
047644 
224576 
000000 



REFIM! ASCI? /pn YOU WANT T" REFRESH THE DISK 7 



(Y OR CR) 



/ 

REF2m: 



/ 

REF3m: 



ASCI? /ARE YOU SURF(V OR (;R)? 



ASCI? /on YOU WA-^T TO CHANGE THE LOCATION OF THE MFD(Y OR CR)7 
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649 
6=10 
6bl 
6b2 
6S3 
6'54 

6=35 
6'56 



6?7 



6^8 
659 
660 



P07 
P0f" 

("00 

«a0 
ca0 

K00 
00C< 
C100 



61 
611 
612 
61 J 
614 
615 
616 
617 
620 
621 
622 
623 
524 



6M 



00P1 
710? 
00/T 
?0P 
00? 
?00 
[»03 
(»00 
000 
!»00 
000 
000 
000 
000 
000 
001? 
000 
000 
000 
000 

000 
000 
000 
000 
000 

000 

000 

00 

000 

000 

000 

000 

000 

000 

000 



625 
526 
627 
6.10 
6?1 
632 
633 
634 
535 
636 
637 
540 
541 
642 
643 
544 
645 
546 
647 
650 

651 

653 
554 
655 
656 
657 
650 
661 
662 
663 
664 
665 
666 
667 



522632 
52221.0 
475171 
451010 
455010 
512132 
476144 
4250U 
202450 
425232 
202231 
512330 
475341 



512130 
516210 
204321 
425452 
'02571 
425012 
522231 
412311 
20!'0''0 
522364 
522371 
446070 
545011 
256231 
472110 
555425 
251012 
425004 
436231 
050030 

442372 
406353 
422130 
4063?5 
455010 
455010 
416272 
512124 
202050 
462311 
522130 
476444 
405412 
435007 

00005«0 



0425.''0 
52^230 
1415:'2 
444546 
142210 
3615.10 
05222K 
543210 
552244 
647630 
543236 
152222 
505000 



651212 
5 4 2 1 ,1 

200000 

247644 
4 4 6 3; 
751222 
643570 
741526 
000000 
04(1652 
540650 
145230 
447616 
620252 
551100 
430672 
454640 
246235 
521032 
000030 

720232 
120120 
344632 
120142 
444646 
246236 
320202 
052236 
520202 
741602 
420214 
051656 
044634 
706424 

000000 



4SCI7 /TyPF Tht LOGlf-AL f^lPK ADDRESS OF THE Ml- T RETREIV4L INFORMTION 



/ 

IFE 

REF5y ! 

/ 

> 

REF5>^: 

/ 

REF7^<i 



REFS"! 



/ 

ifn 
REF9m: 



rTRC10. < 
iSf"!? /MUST 



3E A MULTIPI.F OF NUM'?Lt<. 



ASGI? /RfFOESHFD 



ASCI? /ERSOS h-JILE w«ITp:G tJLOCK / 



ASGI • 



/TO AUTOMATI'-ALLV LOG-IN UN^FR El.lJi TYPE "LOGIN" 



FTRC10. 
ASCIH 



/riOw MANY (DFCIMAL' IK DISK PLUCKS ARE T" RE ALLOCATFO FiR BWAPPING ? 



ONCER - ONCE ONLY OPERATOR OIALOGUE AND 10 DEVICE IM T , ( BURROUGH? DISK) MACRP,V36 19i08 4-JUN-69 PAGE 31-1 

T. HASTINGS/RCC/CHW TS 6)4 JUN 69 V414 

662 > 

6*3 > jTHIS CLOSES AK' FTDISK CONDITIONAL SEVERAL PAGES BACK, 



ONCE- 



665 
666 
667 
663 
66V 
670 
671 
672 
hli 
674 
675 
676 
677 
678 
679 
6?^ 
681 
6B2 
6" J 
6''4 
6»5 
686 
b'\7 
638 
6^9 
69k) 
691 
692 
693 
604 
695 
696 
697 
608 
699 

7 7'e 

7"1 
7 '12 
7'i 
7-M 
7''5 
7'"6 
7^17 
7^8 
7K9 
710 
711 
712 
713 
714 
715 
716 
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;R0UT1NE TO READ A LINE FROM OPERATORS COrvSOLE 

iCALL! PUSHJ DOP.GETLIN 

; JUST A CR TYPED IN 

; A LINE TYPED IN.TAC =:ET AS BYTE POI.MTER 



?i 130670 
(?0«l674) 
(-051671 
l7!aP672 
("00673 
'"0?674 
^at"675 
5!0r676 
P6)0677 
C0'/7?!2 
7,0f7''l 
;'0f7;"2 
t^0(^7f.3 
00C7?14 
(<0C7('5 
7tiV.7?.6 

'"0P'77'7 
™0:^7tH 

:^0("711 
F'0f7i2 
Pi0t»71 3 
P0f7!4 

C0a7i5 
B0C71b 

f!007r7 
f'a0720 



P0I'7?1 
f!0("722 
!1007?3 

00C7?4 
F0?i725 



26l?140 
4032^0 
260140 
712040 
4054''0 
3064:'0 

2 5 4 ;' 
3064''B 
2540v"0 
302410 

3 6 4 K 
2540(^0 
260140 
3014.'0 

6 2a4;'0 

260140 
?550i»0 

3024:^10 
3442:',0 
2014:"0 
260140 

3262''0 
263140 

260140 
2540;'0 



2 1 4 ''■ 
260140 

3 6 4 2 M 

2014/10 
260140 



000010 

000002 



CHRErsTE*" 
LINE=TAC1 



000134 

000751' 

000672' 



JCHAR TO TYPE OUT (MUST BE SAME AS SCNSER ROUTIND^ 
!TTY LINE NO. (ALSO SAME AS SCNSER) 



IFN FTTTYSrR,<EXTERN TSE TBF , SE TflF I , SCNDDR . DCPUT H , PUTCH I > 



EXTERNAL 



000000 

000010 

000771' 

000«'10 

000177 

000177 

000717 ' 

000033 

0051731' 

000176 

000176 

000731' 

002751' 

000140 

000040 

000000 
003000 

003015 
000672' 
000012 
000751* 

0000?0 
000000 

000000 

000724 ' 



GETLINt IFF 
IFN 



GETl: 



GET2! 



SET 
PUS 
OAT 
ANO 
CAI 
JRS 
CAI 
JRS 
CAI 
CAI 
JRS 
PUS 
CAI 
TR2 
IFE FTTTYSE 
IFN FTTTYSE 
JFC 
> 

CAI 
AOJ 

VQV 

PUS 
IFE FTTTYSE 

JUM 

POP 



cpnpji 

FTTTYSER,<MOVE TAC,LINEP> 
rTTTYSER,:< PUSHJ Pnp,SFTBFI> 

iiR ITFM.CHREC 

HJ PDP.TYI 

AI tty,chrec 

I CHRrC.177 
CMRFC.177 

delete 

CHREC.33 

GETLNl 

CHREC.175 

CHREC.176 

GETLNl 
PDP.TYO 

CHRECi 140 

CHREC. 40 
R,<IDPB CHREC. TAC> 
R,<PUSHJ PDP,PUTCH[ 



IRUBOUT? 

iALTMODE ? 
lYES 

IVAHIATION; OP ALT-MQDL ? 
lOR YET THIS THIRD VARIATION ? 
lYES 

lECHO CHARACTER 
; IS THIS LOWER CASE? 

lYES.MAKE IT UPPER CASE 

ISTORE CHARACTER 



! IGNORE ERROR RETURN 



E CHRFC»15 

A ITEM. GETl 

EI CHREC, 12 

HJ PDP.TYO 

R,< MOVE TAC.LINEP 

PN ITFM.CPOPJl 

J POP, 



(OUTPUT LF 
ITYPE OUT 

JRESET BYTE POINTER) 
INULL LINE? 
lYES, OON'T SKIP RETURN 



DELETE! IFN FTTTYSEH,< PUSHJ PDP.DCPUTR 

JRST DELFT1> 
IFE FTTTYSER,< 

JUMPE ITEM,DELET1 

AOn TACCXWD 070000,0: 

TLNE TAG, 400000 

ADD TACCXWD 347777,-13 

MOVEI CHREC,t34 

PUSHJ PDP.TYO 

SOJA ITEM, GETl 



(AT BEGINNING OF LINE? 
(NO, SACK UP BYTE POINTER 
(FINISHED THIS WORD YET? 
lYES, RACK UP ADDRESS> 
(OUTPUT BACK SLASH 



000015 DELETli MOVEI CHREC, 15 
000751' PUSHJ POP,TYO 



ONCE" 
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717 
718 
719 
7?0 


00!^7?6 
?I007?7 
00R730 


2014?10 

?60i4e 

2ij40?(5 


000012 

00?751' 

000670' 




^OVEI CHHEC,12 
PUSHJ POP.TYO 
JRST GETUIN 


721 
7?2 
733 


.100731 
000732 
000733 


476B?0 
?014k'a 


0000?14 
000015 
00»)714' 


GETLNl: 


SETOV ITEM 
MOVEI CHREC.15 
JRST r,ET2 



IMECHANISM USED TO BY-PASS PART OF DIALOGUE 
I WHEN ALTMODE is TYPED, 
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7?4 








7^5 








;'6 








727 








7?S 








739 








730 


C00734 






731 


7I6)PI734 


201246 


000000 


732 


(»0(»735 


7122(10 


001000 


733 








734 








735 








735 


l!100736 


7123^0 


000040 


737 


5'0?737 


254000 


000744 • 


738 


0(30740 


260140 


000234 ' 


739 


000741 


3224^10 


0000i7;0 


743 


000742 


260140 


000751 1 


711 


000743 


254000 


000736' 


742 








743 


000744 


2014-0 


000015 


744 


000745 


260140 


000751' 


745 


000746 


2014.10 


000012 


746 


000747 


P50140 


000751' 


747 


000750 


7122^0 


001000 



IKOUTINE TO TYPE A LINE ON OPERATOR CONSOLE 
itCHO CHECK STOPS LINE AWQ HETURMS 
iCALL! OAT qET TO E^D OF MESSAGE 

IFN FTTTySFR.<EXTERNAL CP0PJ> 

OPOUTi IFF FTTTvSER,<»10VE TAC,LINEP> 

IFM FTTTYSER,<>10VEI ^AT, TTOSUF ( DEVDAT J > 

"OMO TTY,1000 (CLEAR IMPUT 

OPOUTli TFE FTTTySER,< 

CAMN TAG, DAT 

POPj PDP,> 

CONS? TTY,40 

JRST 0P0UT2 lECHO CHECK 

•'EXTCfPUSHJ PDP,GETC'-iRf 
IFM FTTTyser,< JUMPE CHREC,rPOPJ> 

dUShJ pdp.tyo 

,jRST QPOuTl 

0PnUT2; "OVEI CHREClS 
PUShJ POP.TYO 
"OVE! rHREC,i2 
PUSHJ PDP.TYO 
rONO TTY,1000 ) CLEAR INPUT 



ONCER 
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748 












719 








IWAIT 


TILL OUTPUT BUSY OFF arm 


750 












7'51 








EXTERiNAL TCO^LN.TYPL 


/•SZ 












753 


fl0C751 


260140 


000775' 


TYO: 


PUSHJ PDPiAPRCHK 


7«'l 


a0Pl7'J2 


712300 


000020 




CONS? TTy.20 


7S5 


5'0!'753 


254000 


000751' 




JKST TYO 


7?6 


000754 


261140 


000001 




PUSH PDP.TAC 


7^7 


000755 


261140 


000002 




PUSH POP, LINE 


7?8 


000756 


200040 


000010 




MOVE TAC.CHHEC 


7'^9 


000757 


221040 


200431 




IMULI TAr. 200401 


7A0 


000760 


404040 


002331' 




AND TACCOCT lllllim 


7hl 


f00761 


220040 


002331' 




IMUL TAC,[OCT 11111111] 


lh2 


000762 


603040 


000010 




TLNE TAG. 10 


Ihi 


('00763 


660400 


000200 




TRO CHREC,200 


764 


0007*4 


712140 


000010 




DATAO TTY.CHREC 


7^5 


000765 


620400 


000200 




TR? CHREC.200 


766 


000766 


262140 


0000512 




POP PDP.LINE 


7 '-7 


000767 


262140 


030001 




POP POPiTAC 


768 


000770 


263140 


000000 




PQPJ POP, 


769 












770 








i WA IT 


TIL INPUT nONE ON BEFORE 


771 












772 


000771 


260140 


000775' 


TYI: 


PUSHJ PDP.APOCHK 


77i 


000772 


712340 


000040 




CONSO TTY.42 


774 


000773 


254000 


000771 ' 




JKST TYI 


775 


S!00774 


263140 


000000 




POPJ POP, 


776 












777 








;CHECK 


APR FOR CLOCK Flag so ti 


776 












779 


000775 


700340 


001000 


APRCHK 


! rONSO APR. 1000 


7a0 


7 7 6 


263140 


000000 




POP J POP, 


7B1 


000777 


700200 


001000 




COMO APR, 1000 


T^2 


001000 


350000 


000275' 




AOS TIME 


7«3 


001001 


263140 


000000 




PDPJ POP, 



ICHECK CLOCK 



IF USER TYPES IN WILL HE ACCURATE 

i IS CLOCK FLAG ON? 
I NO 

lYES, CLEAR CLOCK FLAG 
(INCREMENT TIME 
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714 
736 


001002 


26U40 


000001 


KKieCiJ 


250140 


001006' 


7H7 


001004 


262140 


0000?I1 


758 


001005 


254000 


000440 1 


7H9 








790 








791 


(?01006 


201300 


000000 


792 


001007 


205400 


000120 


793 


001010 


541406 


000000 


794 


001011 


202406 


000000 


795 


001012 


5414?I6 


000000 


796 


001013 


202406 


000734' 


797 


001014 


2540^0 


000000 


798 








799 








8?I0 


001015 


260140 


001002* 


aai 


001016 


260140 


000734' 


8P2 


001017 


260140 


000670' 


a:iJ 


0010S0 


253140 


000000 


8," 4 


001021 


250140 


000740 ' 


8f15 


001022 


620400 


000040 


8(16 


001023 


306400 


000131 


8!'7 


003024 


3500?i3 


00(»000 


8''!8 


001025 


263140 


000000 



ICONM! PUSH POP.TAC 

=;ETTY0 ilNITIALIHE LINE aUFFER 
PUSHJ PDP.OTSET 

POP PDP.TAC 

JRST CONMES lOUTPUT MESSAGE 

IFM FTTTYSFR,< 

OTSET! MOVEI OEVDATiSCNno? 



YESNO! 



MOVSI 

HRRI 

HRRI 

MOVE" 

JRST 



TEM,120 ITTYCHR 

TEM.TISFIOEVPAT) 

TtM,TTlBUF(DEVDAT) 

TEM.TOBFfOEVOATl 

TEM,TTOBUF(DEVnAT) 



MNIT INPUT POINTER 
!AND OUTPUT POINTER 



TSETRF 



!NOW CLEAR THE BUFFERS 



(FIRST OUTPUT THE QUESTION 



PUShJ PDP.lCONM 

PUSHJ PDPfOPOUT 

PUShJ PDP.GETLIN )N0W get RESPONSE 

POPJ PDPi0 IJUST C-R 

NEXTOfPUSHJ PDP.GETCMRf 

TR? CHREC,40 IFIRST CHAR OF RESPONSE (U.C,) 

CAIN CHREC."Y" (WAS IT A Y? 

AOS a(POP) lYES. SKIP 

PDPJ PDP, (NO. MAYBE IT HAS "N", SO DONT SKIP 



ONCEH 
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6d9 








81? 








811 








312 






000020 


813 


C31026 






81 4 








815 


?ai046 


440700 


001047 


816 


I?0) 047 






817 








818 








819 








370 


?i01077 


202331 


747222 




1?H11P0 


522372 


220224 




[»aiiai 


526472 


420230 




['011P2 


476030 


442610 


8?1 


(101173 


064240 


000000 


832 


?aiic4 






8?3 


f01104 


?64;|52 


454640 




701105 


425S)12 


447610 




?011?6 


406624 


751500 




7011?7 


422i;32 


44Z5!'B 




!'aiii0 


4 6 4 6 4 


0"4 663 2 




'•0111 1 


266110 


426662 


a^A 


001112 


544J21 


200000 


8P5 








a?6 


("01113 






8?7 


("01113 


:'64;'52 


454640 




?01114 


425012 


444632 




001115 


425010 


161500 




001116 


442211 


546432 


8?8 


f!011]7 


050000 


000000 


829 


C01120 






83 2 


001120 


06't;'51 


147500 




001121 


416ci71 


643222 




001122 


436532 


240650 


831 


(^01123 


446371 


606424 




001124 


0000^0 


000000 


a:<2 








033 


001125 






834 


001125 


;i64252 


454640 




001126 


425i.;il 


640632 




001127 


425P11 


743100 




001130 


4 7 6 « 1 2 


2212?6 




001131 


476552 


347630 


875 


00U32 


424521 


20?000 



iCONSTANTS AVO PusH DO;^M LIST 



ONCEPDl PLOCK ONCtPN 

LIi>JEP: POI\T 7,uINBUF 
L !N8Uf ! "LOCK 30 



;PliSH nouN LIST 



I INPUT AMD OUTPUT LIME BUFFER 



iMFSSAGES 

TSEXEC! ASCI? / «<OMITO'V JUST Lt^AHEH 



TODATL! ASCI? / 

TYPE TODAY'S DATE AS M^-nO-YV 



TIME"! ASri? / 
TYPE TIME A5 HHMM 



IOC0^'F! ASCI? / 
10 COMEICUPATiniN 



CPRM! ASCI? / 
TYPE 'NAME OE OPi- 



3\^0LE 



ONCE- 
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8:^6 
a'7 



838 
H'9 
840 

841 

842 
843 



814 



845 
H46 



347 



843 

349 

850 



(501133 
P01133 
("01134 
?01135 
001136 
C01137 
!»01140 
001141 
5101142 
K0114J 
001144 
H01145 
001145 
001146 
P01147 
C01150 
1^01150 
001151 
001152 
001153 
00)154 
001155 
001156 
001157 
001160 
001161 
001162 
001163 
001164 
001165 
001166 
001167 
001170 
001171 
001172 
001173 
001174 
001175 
001176 
001177 
001200 
001200 



064250 
546372 
405352 
546471 
201212 
425013 
431013 
P61010 
446144 
?45761 

064250 

415010 
374321 

?'64250 
415011 
0000?0 
202370 
461011 
406511 
515011 
435341 
466033 
202071 
202151 
516231 
425012 
511011 
000000 
522632 
422132 
426104 
541345 
415225 
511011 
476264 
202232 

000000 



4475^10 
523256 
42!?246 
540626 
454640 
12H222 
142646 
351l;'!0 
047236 
505000 

554212 
442250 

200000 

554212 
151572 
000^00 
3522:^2 
4 4 7 6 ?! 6 
147634 
4 4 7 6 ' 4 
505000 
020226 
751212 
751100 
543630 
551612 
151500 
000000 
042500 
344644 
046602 
042212 
420206 
143100 
040646 
306424 

0000110 



srSM! 

DO YOU 



ASCI? / 

H4NT <;YSMAK (TYPE 



Y IP YE?, CR IF N0)7 



/ 

SYSO" 



ASCI? / 



EXEC DDT? 



EXFCIb; 
EXEC IS 



ASCI? 
/ 



LEMGTH! ASCI? / OCTAL LOCATIONS LO*-'G. 



/ 

MXKMES! 



ASCI? /MAX K CORE EQR SINGLE USER IS / 



DESMESI ASCI? /TYPE OESIREO "*AV,OEC!. CR IE OK AS IS 



;>64240 000000 



CRLF>4b: 
/ 



ASCI? / 
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8'^2 








853 








854 








855 








856 








857 








858 








8=^9 








360 








861 








862 








863 








864 








865 








866 








867 








868 


5I012P1 






869 








870 


0012C1 


260140 


001723' 


871 


C"012P'2 


260140 


001625' 


872 


["012r3 


260140 


001660' 


873 


Pi012!i4 


316040 


0000 7 


374 


(«012?5 


254070 


001241' 


975 








876 


i7i312?.6 


260140 


001006' 


877 


!'012l''7 


260140 


000373' 


878 


001210 


422232 


OS45500 




S01211 


416032 


040606 




5!01212 


446513 


120220 




001213 


406464 


041620 




?01214 


406350 


742610 




001215 


202471 


1472716 




001216 


425011 


440646 




001217 


521012 


242614 




001220 


512132 


;i44222 


879 


001221 


472165 


606424 




"01222 


426232 


"44212 




001223 


511012 


242646 




001224 


522372 


2425JI0 




!»01225 


502450 


553222 




001226 


476532 


320210 




001227 


446471 


320206 




001230 


476350 


644616 




001231 


526450 


152222 




001232 


476344 


047644 




001233 


202450 


543244 




^01234 


426471 


027032 


830 








381 


001235 


050321 


200000 


3«2 


001236 


260140 


C.00734 1 


a. '13 


001237 


260140 


?00467i 


834 


001240 


254000 


(!012f"li 


885 


001241 







INITIALIZE SAT ?EARCH ENTRIES 

JTHIS "DFUUN?" ROUTINE IS CALLED BY MANDATORY (INCE ONLY CODE!LINKSR) 

; AFTER ALL MULTIPLE DEVICE OAT* SLOCKS HAVE PEEN GENERATED IN CORE 

; AROVE C(SYSSI?1( AND SYS5IH HAS BEEN INCREMENTED) 

( IT IS CALLED WHETHER OR NOT THE DISK WAS REFRESHED, IF REFRESHING i-iAS 

; PERFORMEDi OFWUNS IS CALLED AFTER REFRLS SINCE SYSINI CALLS LINKER AFTER ONCE, 

INTERNAL FTDISK 
IFN FTDISK, < 

INTERNAL DFwUNS 

EXTERNAL SAT05,JSAT06.SATENT,SATPTR,SAT8K2,SATXWD,SATPTR 

EXTERNAL SAT,SENTSZ,nSKDD8.DSKBUF,WSYNC,MQlN,M(30UT,DFGETF,SETFRE 

EXTERNAL ULBIT.NUMBIT.nSKCNT 



OFWUNS; 

IFN FTRC10. < 



PUSHJ PDP.MRITLK 



;FORCE THE WRITE-LOCK SWITCH SETTIMGS Tn BE 2ER0, 



SAGE. 



PUSHJ PUP.RDSTAT IREAD VITAL DISK STATISTICS BLOCK, STORE PARAMETERS 

PUSHJ PDP.CAPCTY lOETERMINE CURRENT SYSTEH CAPACITY (HOW yANY DISKS), 

CAMN TACLBHIGH IHAS CAPACITY CHANGED SINCE LAST REFRESH ? 

JRST DFWNZl INO, EVERYTHING APPPEARS TO BE OKAY, 

SETTYQ rPUSHj PDP.OTSET' lYES, PRINT WARNING MES 

PUSHJ PDP.INLMES 

ASCI? /DISK CAPACITY HAS CHANGED SINCE LAST REFRESHING. 



EITHER RFSTORE PREVIOUS DISK CONFIGURATION OR REFRESH. 



DFWNZl; 



PUSHJ PDP.OPOUT ISTART TTY 

PUSHJ PDP.REF iGO THROUGH THE REFRESH HULOGUE 

JRST OFWU'JS INOW try AGAIN, 



ONCE' 



ONCE ONlV operator DIALOGUE AND 10 DEVICE I N ! T ,( BURROUGHS HISK) "ArRO,V36 19SI28 
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886 






> 


837 


?01211 


201010 


000000 


888 


^01242 


202040 


000000 


8H9 


301243 


201340 


000000 


890 


001244 


2013^0 


000000 


801 


001246 


200100 


000000 


892 


001246 


202106 


000000 


893 


001247 


261140 


000000 


394 


001250 


:300040 


000000 


895 


001251 


202040 


001247' 


896 


001Z52 


334040 


000513' 


897 








898 






JREAO 


899 








900 


001253 


272100 


001242' SETSl 


9-n 


001254 


261140 


000Z01 SETS2 


912 


001255 


403006 


000002 


9?3 


001256 


260140 


000000 


97!<) 


001257 


2542710 


001313' 


9"ij 


001260 


200240 


001253' 


9;)6 


001261 


200040 


001245' 


917 


001262 


202045 


000002 


9 '/-a 


001263 


205100 


400000 


919 


001264 


2021 '5 


0000:^1 


910 


001265 


201240 


000000 



mOVeI TATiSATE'^iT 

fOVEi^ TAC.SaTPTR 

'^OVLI PROG.0 

MOVEI DEVOATiDSKODB 

^'OVE TA(;i,SaTBk2 

MOVEI' TAC1>DSK9UF(DEVDAT) 

PUSH PDP.WSYNC 

MOVE TAC,JSaT06 

MOVE!" TACWSYNC 

SKIPA TAC.SATXWD 

JREAO EACH SAT BLOCK FROM THE DISK AND SET SATENT TABLE TO MATCH INFtl ON D'ISK. 

ADDM TACl.SATPTR 

PUSH PDP.TAC 

SET2P lOS.OtVIOS(OEVDAT) 

PUSHJ PDP.MQIN IREAD A SAT BLOCK 

JRST 4,SETS6 IERROR HALT 

MOVE DAT.SATPTR (RESET THE ENTRY 

MOVE TAC,SATBK2 

MOVEM TAC.2<DAT) 

MOVSI TACl. 400000 

MOVEM TACl.KDAT) 

■"OVEI DAT.0 



ONCEa - ONCE ONLY OPERATOR DIALOGUE AND 10 DEVICE I N I T . ( RURRnuCH? DISK) I'ACRn.VSa 19S06 
T. HASTIKIGS/RCC/CHW TS 04 JUN 69 V414 
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9U 


001266 


200641 


000000 


SETS3: 


MOVE ACl, (TAD 


912 


!»01267 


346640 


001272' 




40J,V AC1,SETS3a 


913 


701273 


271240 


000044 




AODI DAT, 44 


914 


("01271 


254ii:;?0 


001277' 




JRST SETS5 


915 












916 


001272 


362640 


001277' 


5;tTS3A 


! SOJE AC1,SETS5 


917 


5501273 


612101 


000000 


SETS4! 


TDME TACl. (TAG) 


918 


001274 


271240 


000001 




ADDI DAT.l 


919 


001275 


2411C0 


777777 




"OT TAC1,-1 


950 


001276 


325170 


001273' 




JUMPGE TaC1,5ETS4 


921 












9?2 


C01277 


253040 


001266' 


SETS5: 


aOBJN: TAC,SETS3 


923 


001300 


542260 


001260' 




hrrm dat.sisatptr 


974 












925 








lEE 


ETRC)0, < 


925 








;SITS HAVE HEEN COUNTEDi CH 


977 










CA IL DAT iNUMSIT 


928 










JRST SETSS 


929 










ousKj "DPiOrnETF 


9 10 










PUShJ puPiSETS7 


9"!1 










pushj odp.SLTFRE 


932 








> 




9 7,3 












934 












935 


!"0]3Pil 


2011'-'0 


00?0!'0 


SETS5B! 


^OVE! TAcl.SENTS? 


936 


B'0135'2 


262140 


00!105<1 




POP PDPiTAC 


937 


0013JI3 


253040 


001253' 




AQOjM TAC.SETSl 


93 8 












939 












940 








IFE 


FTRC1.0. < 


941 










JHST SAT05 


942 








> 




943 












944 












945 








IFN 


FTOCia. < 


946 


0013C4 


550i:40 


001300' 




HRR2 TACSATPTR 


947 


'"013{15 


301040 


000000 


SETS5X: 


CAIL TAC.SATTOP 


948 


B013['6 


2540!?0 


000000 




JRST SAT05 


949 


0013?'7 


271040 


0013PI1' 




AOni TACSEMTSZ 


9'5B 


001310 


2B11'"0 


411000 




'-'OVEI TAC1,411P00 


951 


001311 


542l?'l 


000000 




MRPM TACl, (TACl 


952 


00J312 


254(>fJ0 


001305' 




JHST SETS5X 


953 








> 





iCdUNT ONE-BITS 
I IS THE WORD = -1? 
)YES 



INn, IS IT = 0? 
INO, COUMT THE BITS 



iLOOP Thru emtire block 



I BLOCK FULL? 

INO, GET A FREE BLOCK 



IWRITE 

IFREF The BLOCK 



IPREPARE TO RUMP SATPTR 
ion ALL SAT BLl^CKS 



(RETURN 



iEXIT FROM OFWUMS BACK TO DSKINI IN nSKSrR, 



ION THE MEW F'DP-10 DISK SYSTEK SET THE SsT ENTRY 
I TABLE TO SHOW ALL N.UN-EX I STENT DISKS AS 
I BOTH WRITE-LOCKED AND FULL. 



ONCE = 



?:'^.ST^y%cc;?H/'t^°'«^ Tu: II %lu' IMT.r'U^RnUGHS n,S., «.C,0.V3. 1,:.8 4-JU.-6, P.GE^, 



954 

955 

956 

957 

958 

959 

960 

9M 

962 

963 

96'! 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

9^0 

9'!1 

9'i2 

9fi3 

9?4 

9S6 
9«7 
9«18 
9B9 
990 
991 



PI01313 26P140 i?^5'f)'>i St;TS6! "OP hqPi'^AC 
["01314 254ei?0 001254' JR9T SrTS2 



lE^ROK, TRY AGAIM 



If-T 



rTOcW. <r 



JwOITE-LHCK TETERMIMATlQi,! ON THE OLD Pr)P-6 (HATA PRODUCTS) DISK -- 



ISAVF BLOCK ADDRESS 
lE^ROR 



SETS7i ouSh POP, Tie 

';ets7A! pushj pdp,m30ut 
jrst sfts7c 

SETS7tl! POP POP.TAC 

PQPj POP, 
SETS7C; MOVE TAC, (POP) 

"OVE TACl ,nSKCMT(OEVTAT) 

TRNh TACl.lOIMPM iWRITt LOCK? 

JR^T 4,SrTS7A INO 

"OVtl TAC.I^LIIT (YES, SET PIT 

ORM TACaSATPT!^ 

JRST SFTS7B 

SETS.«i "OVEl TACSETSP IBLOCK FULL, READ FIRST ONF 

uRPh TAC,DSKTUF(DEVDAT) 
"L«i TAC,6iSATPTR 





= U"^Mj PDP.MQIM 






JR^T 4, .-2 lEPROR 
HL»i TACJiSATPTR .'WRITE I 
PUSHJ PDP,SETS7 


T BACK 




'iQVEI TAC, Sat IRESFT 
MRRM TACOSkBUFCDEVDAT) 
JRST SETS5R 




SETS9i 


BLOCI' 204 




> 
> 


fCLOSE THE IFE FTRClf! 
(CLOSES AN IFM FTnlSK A I 


rniipi r 



ONCEG 



992 
993 
994 
995 
996 
997 
998 
999 
13^0 

laci 

1H7I2 
10?3 

1006 

imi 

1038 

10?!9 

1010 
1011 

1012 
11213 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
10?3 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1036 
1036 
10 3 7 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
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IFN FTOISK.< 

;OISK REFRESHING ROUTINES 

IFE FTRC10. < 

;DISK REFRESHER FOR THE OLD PDP-6 (DATA PRODUCTS) DISK -- 

EXTERNAL MFDBLKiNUMSAT.CHKCNT.CHKSUM.NUMBLK.DSKINl .SETSAT.DSKCHNiDSKCHL 



(SETUP 10 



refresh: MOVE! PROG>0 
MOVEI OEVOATiOSKDDB 
PUSH PDP.SETSAT 
MOVE TAC.KPOPJ 
MOVEM TACiSETSAT 
PUSHJ PDP.DSKINI 
POP PDP.SETSAT 
MOVEI TAC.DSKCHN 
LSH TAC.l 

ADDI TAG, 40 

MOVE TACI.CJSR 0SKCHL3 

MOVEM TACl.(TAC) 

PUSH POP.WSYNC 

MOVE TAC,JSAT06 

MOVEM TACiWSYNC 

;SETUP NULL SAT BLOCK 

SETOM DAT 

MOVE TACl.CXWD NULBLK,NULBLK+13 

SETZM NULSLK 

BLT TAC1,NULBLK+177 

MOVEI TAC.NUM8LK 

IDIVI TAC.'D36 

SUBI TAC1,'D36 

MOVMS TACl 

ROT TACl, -6 

ADDI TAC.NULBLK 

HLL TAC.TACl 

TLOA TAC,100 

IDPB DAT, TAG 

TLNE TAC, 770000 

JRST .-2 

ADS TAC 

MOVEM DAT, (TAC) 

HRLS TAC 

AOS TAC 

RLT TAC.NULBLK*177 



(SET UP SAT BLOCK WITH MFD AND SAT BLOCKS ALLOCATED 



(END OF BLOCK BYTE POINTER 



MOVE TAC.CXWD NULBLK,SATPL13 
BLT TAC,SATBLl*l77 



OMCED 
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104& 

ia46 

11347 
1048 
1^I49 

iia-^^ 

10>^2 
1053 
1054 
1055 
1056 
105 7 
1058 
1059 
10^0 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1378 
1079 
1080 

lasi 
iaf2 

10E3 
10'<4 
10f?5 
10''6 
1087 
10S8 
10R9 
1090 
1091 
1092 
1093 
1094 
1095 
10''6 
1097 



MOVE TAC.CPOINT l.SATBLi: 

MOVEI TACl.NUMSAT 

WRLM TACl,SATRET+3 

ADDI TAC1,3 

lOPB DAT, TAG 

50JG TAC1,.-1 

;COMPUTE CHECKSUMS IF "lEOUIRED 

MOVEI HATtCHKCMT 

JUMPE DAT.REFRl 

■^OVE TAC.CXWn -200IMFD1] 

PUSHJ PDP.CHKSUM 

HRLM TACl.MFDRET+4 

MOVE TAC.CXWD -200,NULPLK] 

PUSHJ PDP.CHKSUM 

HRLM TACI.SaTRET+4 

MOVE TAC.CXWD -2(!0.SATBL1: 

PUSHJ PDP.CHKSUM 

MOVE DAT.TACl 

iRFLOCATE POINTERS RELATIVE TO MFDBLK 

REFRi: MOVE TAC, MFDBLK 

HRRM TAC,MFDRET+177 

HRRM TAC,MFD1+1 

ADDI TAC.NUMSAT 

ADS TAC 

HRRM TAC,SATRET*177 

HRRM TAC,MFDl+3 

AOS TAC 

HRRM TAC,MFDRET*4 

fOVM TACl.NUMSAT 

MOVS? TACl 

HRRI TACl.l 

MOVE TAC.MFDRLK 

HLL TAC.';aT!RET*4 

HRRE« TACl.SATRET+3(TACl) 

ADOM TAC,SATRETt3<TACl) 

AOBJN TACl. .-2 

!FIX CHECKSUM FOR SATBLl 

MOVE TAC.MFOBLK 
IDIVI TAC.NUM3LK 
HRLM DAT,SATRETt3(TAC) 
MOVE DAT, TAC 

;WRITE BLOCKS ON DISK 



"OVE TAC.MFDRLK IMFD RETREIVAL INFORMATION 

MOVE TACI.CXWD -200,MFDRET] 
MOVEM TAri.DSKBUF(DEVOAT) 



ONCE° 
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1098 
1299 
11^0 
1171 
1172 
lli»3 
11!"4 
11C5 
11C6 
1107 
1178 
11''9 
U10 
1111 
1112 
1113 
1114 
1115 
1116 



SETHP lOS.DEVIOS(OEVnAT) 
PUSHJ POP.MQOUT 

JRST REFER ;ERRDR 

MOVEI TAC.l 
REFR?: MOVE TACl.CXWO -230 , "ULBLK 1 ISAT BLOCKS 
CA^'^ TACiOAT 

MOVE TACltCXWO -200,?ATBL1] 
PUSH POP, TAG 
ADD TACMFDHLK 
"5ETZn lOS.DEVIaS(OEVOAT) 
MOVE" TACX.OSKRUF(DE"DAT) 
PUSHJ PDP.MQOUT 

JRST REFERl lERROR 

POP POP.TAC 
CAIGE TAC.NUMSAT 
AOJA TAC,REFR2 

AOS TAT (SAT RETREIVAL INFORMATION 

ADD TACi»<FnBLK 
SETZq lOS.OEVIOStOEvnAT) 



1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 



MOVE TACl.CXWO -200,SATRET: 

MOVE" TAC1.0SKHUF(0E>'DAT) 

PUSHJ PDP.MQOUT 

JNST REFER (ERROR 

MOVE TAC.MFDBLK JMFO 

ADDI TAC.NUMSAT 

4DDI TAC,2 

MOVE TACl.CXWO -200,MFD13 

MOVEM TACl.DSKgUF(DEVOAT) 

SETHP lOS.DEVIOS(DEVnAT) 

PUSHJ PDP.MQOUT 

JRST REFER (ERROR 

POP POP.WSYNC 

JRST CPOPJl 

REFERll POP PDP.TACl 
REFER! POP PPP.WSYNC 
RPOPJ! POPj POP. 

DEFINE ZEROES 1A),<XLIST 
REPEAT A,<0> 
LIST> 

DEFINE ONES (A).<XLIST 
REPEAT A,<-1> 
LIST> 

DEFINE BLOCKR ( NAME , EXT , PROT .PROGX . B. F , 2 ) . < 
NAME 
EXT 

FXP PRDT. 188*14812 
XWD l.PROGX 
EXP Z 
ZEROES 172 



ONCEi^ 



1151 
ll'Si! 
1153 
1154 
1155 
11*^6 

1158 
1159 

iisa 

1161 
1162 
1163 
1164 
116 5 
1166 
1167 
1168 
116 9 
1170 
1171 
1172 
1173 
1174 
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BYTE (4) F (14) !" (1=) B > 
NTHRET: CLOCKR <xwn l,l>.<SiyBIT /UFD/> , 45 . 1 , e , 4 , 20 



!MFO RETREIVAL I>jF'0 



SATSLl! ywo 777776,0 

?E^OfS 540fl/44-l 
Xl<n ?eil777.-l 
ONES 2'i0*SATnLl-, 



ITHIS SAT BLOCK CONTAINSS 
lALLOCATION FOR MFO AND SAT BLOCKS. 



5ATRFT: RLOCKR <SIXBIT / »S AT »/> , <S I XB I T /S YS/> , 555 , 1 , , 1 , 16 



.•SAT RETR,, INFO 



MFOl; XWD 1,1 

XHD 654644,0 
^IXBIT /»SAT«/ 
yViD 637163,17 
?EROFS 174 

VULSLK: ?ERCFS 540E/44-1 

xkD 'iai;77,-i 

"K-FS SiliiS + NULBLX-, 



IMFD 

IRFLOCATFD 
iNULL SAT BLOCK 



iEi^D Of THE REFRFSHER FOR THE OLD PaP-6 OISK. 
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1175 
1176 
1177 
1178 
1179 

iiee 
iipi 

11P2 
11P3 
1184 
1185 
1166 
11H7 
11S8 
31S9 
11<;0 
1191 
119Z 
1193 

1194 
1195 
1196 
1197 
1198 
1199 
IZilB 
12C'l 
12ti2 
12 ['3 
12..M 
12E^5 
12'.16 
12''7 
12'/<8 
12'>9 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
122? 
1221 
1222 
1223 
1224 
1225 
1226 
1227 






000 



400000 
20C 



(14 
02 
(U 


00 
«0 
00 
00 



0000 
0000 
0000 
0000 
0000 
4000 
20510 
1000 
0400 
0200 
0100 



IFN ETRC10. < 

IDISK REFRESHER FOR THE NEW PDP-10 MODEL RC-10 (BURROUGHS) DISK- 



EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 

IFN FTSWAPi< 

EXTERNAL 

> 

EXTERNAL LBHIGH 
INTERNAL 



CP0PJ1,THS0AT,TIME 

►IFDBLK.SATXWP.NUMSAT.NUMBLKiSATTOP.SENTS? 
OISKUPiDFREDiDFwRTiOSKFDGiCHKSUM.RCXCCUiRCXFlN 
K4SWAP 

maXSWP,MXK2SWP,BLKSPK 



000001 STATbKsI 
000170 DSK=170 



STATRK 

IFIXED LOGICAL BLOCK NUMBER FOR THE "VITAL 

! STATISTICS" BLOCK ON THE DISK, 

(DEFINE DEVICE NUMBER OF THE MODEL RC-10 DISK SYNCHRONIZER, 



ITHESE NEXT TwO PAGES ARE LIFTED DIRECTLY FROM "DSKINT" IN ORDER TO DEFImE THE 
) CONO AND CONI BITS USED HERE IN "ONCE", 

JCONI FORMAT FOR THE MODEL RC-10 DISK SYNCHRONIZER -- 



IBITS 00 - 17 
iBIT"^ 
MSS=1B5 
PLGSW=1B6 



00 





00 



0020 
0010 



;BITS 

DTIP=lBia 
iBiTS 19 -29 

SRCHE= 
DDF=1B 
TSE=16 
NRDY=1 
PSF=1B 
DPAR=1 
CHOPAR 
CHCPAR 
NXMEM= 
WRPE=1 
0VR=1B 
iBIT 30 

BUSYBT=1B31 
D0NEFLG=1B32 
iBITS 33 - 35 



07 



E 
IBl 
20 
21 
BZ2 
23 
B24 
IB 
IB 
182 
B2B 
29 
C 
I 
I 



AINTE 

- 04 
SET I 
1 = W 

= 
THE C 
DOE 

- 17 
SET 1 
RROR 
9 



HANNE 
TURNE 
BUSY 
DONE 
I CHA 



NANCE 

UNUS 

NDICAT 

RITE-P 

WRITE 

URRENT 

S NOT 

THE 

NDICAT 

CONOIT 

ISEA 

JDIS 

)TRA 

IDIS 

IPOW 

IDIS 

)CHA 

ICHA 

)NON 

lATT 

lOVE 

CONT 

ON 

(SYNCH 

-- THI 

NNEL S 



PANEL 
ED 

ES "M 
ROTEC 
PROTE 

IMPL 
PERMI 
WRITE 
ES DA 
ION I 
RCH E 
K DES 
CK SE 
K NOT 
ER SU 
K PAP 
NNEL 
^'NEL 

EXIS 
FMPTE 
RRUN, 
ROL W 
K' ALM 
RONIZ 
S ACT 
ELECT 



SWITCH SETTING INDICATORS 



AINTE 

T EVE 

CT EV 

EMENT 

T SEN 

-PROT 

TA TR 

NDICA 

RROR 

IGNAT 

LECT 

READ 
PPLY 
ITY E 
DATA 
CONTR 
TENT 
TO 

ORO W 
OST A 
ER PE 
UALLY 
ION B 



NANCE 
RYTHIN 
ERYTHI 
ATION 
SING T 
ECTION 
ANSFER 
TORS ( 
(DISK 
ION ER 
ERROR 
Y (OR 
FAILUR 
RROR 
PARITY 
OL PAR 
MEMORY 
WRITE 
, MEMO 
RITTEN 
UL TER 
RFORMI 
CAUSE 
ITS, 



SEGMENT SELECTED" (SEGMENT 81), 
G BELOW (LESS THAN) THE BOUNHARY, 
NG ABOVE (GREATER THAN) BOUNIARY. 
OF THE RC-13 DISK SYNCHRONIZER 
HE INCLUSION OF THE POJNDARY. 

BOUNDARY (DISK AND TRACK NU"BER). 

IN PROGRESS, 
ERROR WHEN SET) -- 
TIMING TRACK PROBLEMS! '. ) 
ROR 

(OR EXCEEDS SYSTEM CAPACITY) 
NON-EXISTENT DISK REFERENCED) 
E 

ERROR 
ITY ERROR 

REFERENCED 
IN PROTECTED DISK AREA (SEE BITS 06 - 17) 
RY DIDN'T RESPOND OUICKLY ENOUGH 

IN MEMORY (THIS BIT 13 
MINATIONS,) 

NG A COMMAND SEQUENCE) 
S THE INTERRUPT, 



ICOMBINATIONS OF ERROR HITS GROUPED BY TYPE 
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12?6 
1229 

1230 



005000 DATERR=DPAR!CHDPAR 

211100 DEVEPR=SRCME!PSF!CHCPAR!nvR 

160600 SFTERR = DDE!TSE!NRDY!MRPE!NXMf;M 



IDATA ERRORS, 
lOEVICE ERRORS. 
ISOFTWARE-PRFVEMTABLE ERRORS. 



ONCEP 
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1231 
12^2 
1233 
1234 
1235 
1236 
] 237 
1238 
1239 
3240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
3248 
3249 



;cnNn eobmat fcir the miqel Rf-iz disk symchroniheR -- 

UNUSED 

•SELECT DISK roR SECTOR COUMTER READ-OUT (SEE OATAI BITS 26-35) 

RESET THE COORESPOMDING COM! ERROR SIT 

;(BUT PSr MAY REFUSE TO RE RESET) 

(WRITE THE CinANNEL CONTROL «*ORD INTO MEMORY (NOWl) 

•STOP -- IMMEDIATELY CEASE PRESENT 1/0 AND CLEAR THE CHANNEL. 

;HESET THE DONE FLAG (CORRESPONDING COM! BIT! TO CLEAR INTERRUPT 

PI CMANNEL SELECTION BITS 

!DaTa1 FORMAT FOR The MODEL 00-10 DISK SYNCHRONIZER -- 

UNUSED 

PARITY REGISTER 

UNUSED 

nISK SFLECTen BY BITS 18-19 OF LAST CONO 

CURRENT SECTfiR POSITION OF SFLECTEO DISK (FOR LATENCY OPTIMIZATION!) 





IBITS m - 17 




iBITS IB - 10 




iBITS 20 - 29 


000040 


MHCCWO=1P30 


0000P0 


STPHlTziQ31 


KB0^10 


RESET8=1E32 




JBITS 33 - 3"^ 



(BITS 


00 - 


17 


IBITS 


18 - 


23 


)BITS 


24 - 


2'' 


iBITS 


26 - 


27 


;HITS 


28 - 


35 



12'50 
3251 
3252 
1253 
1254 
1255 
3256 
12'^7 
1258 
1259 
1260 
1261 
1262 
1263 
1264 



004000 
002000 
001030 



iDlTAO FORMAT FOR THE MODEL RC-ll' DISK SYNCHRONIZER 



IBITS 00 - 17 
IBITS 
IBITS 

;bits 

)BITS 18 - 23 
DDSKPE=1B24 
DCHNPE=in25 
WRBIT=1B?6 
IBITS 27 - 34 

;bit 35 



DISK ADDRESS SELECTION 
("0 - ei DISK SELECT 

?2 - l? TRACK SELECT (SCO, BUT FIRST CHAR IS JUST 1 PIT) 
11 - 17 SEGMENT SELECT (PCD, BUT FIRST CHAR HAS ONLY 3 BITS) 

INITIAL PARITY REGISTER SETTING (ZERO EXCEPT FOR DIAGNOSTIC PROGRAMS) 

iDISABlE disk parity ERROR STOP 

JDISABLE CHA^:NEL DATA PARITY ERROR STOP 

iset means write on disk. reset means read from fllsk 
icorresponoimg bits of initial channel control address, hence. 
! This address must be even and in the first ik of core memory; 
jwrite even parity data into memory (diagnostics only!) 
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1265 














1256 














1267 


001315 






REFRESH 


! 




1268 


001315 


260140 


00000^ 




PUSHJ 


PQP.DISKUP 


1269 


001315 


260140 


001723' 




°ushj 


PUP.WRITLK 


1270 


001317 


260140 


001660' 




PUShJ 


POP.CAPCTY 


1271 














1272 


001320 


202040 


001204' 




"OVE" 


TAC.LBMIGH 


1273 


001321 


350000 


000001 




AOS 


TAC 


1274 








lEN rtSWAP.< 




1275 


001322 


200100 


000531 • 




MOVE 


TAC1,K4SWA0 


1276 


001323 


242l?0 


000000 




LSH 


taci.blkspk 


1277 


001324 


276040 


000002 




PUB^l 


TACTACl 


1278 


001325 


?02l?0 


002316' 




^^OVE" 


TACl.LTWSWP 


1279 


001326 


307170 


000001 




CAIG 


TACi.STATSK 


1280 


001327 


254070 


001342' 




JRST 


RFRSHE 


1281 








> 






1282 


001330 


231040 


000000 




IDIVI 


TAC.fJUMBLK 


12':3 


001331 


2101'70 


000001 




MOVM 


TACl.TAC 


1284 


001332 


5061f.0 


001252' 




HRL*" 


TACI.SaTXWO 


1285 


001333 


550100 


000611' 




HRRE 


TACl.MFOPLK 


1286 


001334 


271042 


000002 




ADDI 


tac,;.'(taci) 


12P7 








IFN nSWAP.< 




1288 


001335 


311?40 


002316' 




r-AML 


TAC 


1289 


001336 


2540'0 


001342' 




JRST 


RFRSME 


1210 








> 






1291 


001337 


307130 


000001 




CAIG 


TACl.STATBK 


1292 


001340 


305040 


000001 




CAIGE 


TACSTaTPK 


1293 


001341 


25401-10 


001361' 




JRST 


RFRShI 


1294 


001342 


201040 


001347' 


RFRSHE: 


MOVE! 


TAC.RFSHME 


1295 














1206 


001343 


260140 


001002' 




PUSHJ 


POP, ICONM 


1297 


001344 


26014B 


000734' 




PUShJ 


PDP| OPDUT 


1298 


001345 


262140 


00 001 




POP 


"DPi TAC 


1299 


001346 


254000 


000475' 




JRST 


REF6 


1300 














1301 


001347 
001350 
001351 
001352 
001353 
001354 
001356 
001356 


502032 
426510 
516410 
432230 
446371 
512451 
201012 
202030 


240632 
551100 
541622 
340550 
620212 
751134 
451262 
740622 


RESHME! 


ASni? 


/PARAMETER ! 


1302 














isr^s 


1^01357 


471341 


505024 








13?4 


001360 


050000 


000000 


/ 






13^5 














1306 














1307 


001361 


260140 


001564' 


RFRSHl! 


PUShJ 


POP. WRST4T 


1308 


001362 


254000 


002112' 




JHST 


REFERR 



IBE SURE THE DISK IS UP AND REAOV, 

)HE SURE hIRITE-LOCK SWITCHES ARE OFF. 

IDETERMIME THE CURREMT DISK CAPACITY OF THE 

! SYSTEM, I.E., HOW MANY DISKS ARE ATTACuED TODAY ? 

ISTORE HIGHEST LEGAL LOGICAL BLOCK NUMBER.. 



ICOMPUTE AND SAVE THE LOWEST LOGICAL BLOrK 
I NUMBER RESERVED FOR SWAPPING. 

;SWAPPlNr, AREA MUST NOT OVERLAY THE 
I VITAL STATISTICS BLOCK. 



;SET SATXWD TO SHOW ONLY THE NUMBER OF 
I SAT BLOCKS ACTUALLY IN EXISTENCE, 



jWP iMAKE VARIOUS CONSISTENCY CHECKS TO DETERMINE 
I THAT THE DISK PARAMETERS SPECIFIED DURlhG THE 

) ONCE-ONLY DIALOGUE DO NOT CAUSE THE DIc;K 

! SWAPPING AREA, VITAL STATISTICS BLOCK, AND/OR 

I THE MFD AND SAT BLOCKS TO OVERLAP ONE AfjOTHER. 

MF THERE IS SOME OVERLAPPING OF 

I THESE DISK STORAGE AREAS, PRINT AN 

i ERROR MESSAGE AND THEN GO RACK TO THE 

I DIALOGUE TO ASK THE PARAMETER SPEC I F ICA 1 1 ON 

I OUESTIONS AGAIN. 

IFICATION ERROR, TRY AGAIN, 



IWRITE OUT THE VITAL STATISTICS BLOCK ON THE DISK, 
I AN ERROR ON THIS WRITE IS RAD TROUBLE !J 



ONCE'J 
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13S9 








1310 








1311 








1312 


?01363 


260140 


002074' 


1313 


H01364 


200040 


002317' 


1314 


P101365 


202040 


002116' 


1315 


t?01366 


2 00421 


002332' 


1316 


001367 


540040 


001333' 


1317 


001370 


202040 


002117' 


131B 


001371 


20 00 4 


002333' 


1319 


5101372 


202040 


002120' 


13?61 


t»01373 


55415«0 


001332' 


13?1 


001374 


550040 


001367' 


13?2 


001375 


27504? 


777777 


1323 


f«01376 


500040 


002334' 


1324 


["01377 


2020461 


002121' 


1325 


?01400 


553000 


000001 


1326 


0014P'l 


271040 


000001 


1327 


P'014!"2 


260140 


002033' 


13?8 


0014fi3 


254000 


002112' 


1329 








1330 


5101 4C?4 


200040 


002335' 


1331 


5101405 


260140 


000000 


1332 


0014«'6 


562l'-i0 


002114' 


1333 








1334 








1335 








1336 








1337 


P101407 


260140 


002074' 


1338 


001410 


200040 


002317' 


1339 


001411 


202040 


002116' 


1340 


001412 


550040 


000245' 


1341 


001413 


500040 


002332' 


1342 


001414 


202040 


002117' 


1343 


001415 


515040 


045000 


1344 


001416 


260140 


002100' 


1345 


001417 


202040 


002120' 


1346 


001420 


200040 


002336' 


1347 


001421 


202040 


002121' 


1348 


001422 


5541P0 


001373' 


1349 


P01423 


200040 


001374' 


1350 


001424 


275042 


777776 


1351 


001425 


504040 


002114' 


1352 


001426 


202040 


002122' 


1353 


!"01427 


200040 


001423' 


13'^4 


001430 


202040 


002315' 


1355 


001431 


260140 


002033' 


1355 


001432 


254000 


002112' 



JNEXT WRITE THE MFD (MASTER EIUE DIRECTORY) ONTO THE DISK 



PUSHJ 

MOVE 

MOVE" 

MOVE 

HRR 

MOVEM 

MOVE 

MOVEM 

WLRH 

HRR? 

?URI 

HLL 

MOVEM 

HRRZS 

ADDI 

PUSHJ 

JRST 

MOVE 

PUSHJ 

HRR^M 



"OR 



PDP.WMFCLR ICUEAR THE OUTPUT BUFFER 

TACCXWD l.n (THE FIRST EMTRY IN THE MFD IS 

TACWNZBUF I THE MFD ITSELF. 

TAG, [SIXBIT/UFn/: 

TACMFIJBLK iPniNTER TO MFD RETRIEVAL INFORMATION 

TAC,KN?BUF+1 

TAC,[SIXBIT/.SAT»/: JTHE only OTHER ENTRY INITIALLY IN THE 

TACWNZeUF + Z i MFD IS FOR A FILE NAMED i>SAT«.SYS WHICH 

TACI.SaTXWD ! PERMITS ACCESS TO THE SAT BLOCKS FOR 

TACMFOBLK 1 ANYONE WHO WANTS TO LOOK AT ThfM. 

TAC-KTACl) (COMPUTE POINTER TO THE RETRIEVAL INFORMATION 

TACCSIXSIT/SyS/O I FOR THE oSATi.SYS FILE. 

TAC,WN?BUF+3 

TAC 

TAC.l (COMPUTE LOGICAL BLOCK NUMBER OT THE MFD. 

PDP.WN2WR (WRITE THE MFD OUT ONTO THE OlSX, 



REFERR 



(ERROR 



TACCXWD -200,WN?BUF: 

PDP.CHKSUM 

TACl.CHKSAV (SAVE CHECKSUM TO GO INTO RETRIEVAL INFORMATION. 



(NEXT WRITE MFD RETRIEVAL INFORMATION BLOCK ONTO THE DISK 



PUSHJ 

MOVE 

MOVEM 

HRRZ 

HLL 

MOVEM 

HRLZI 

PUSHJ 

MOVEM 

MOVE 

MOVEM 

HLRE 

MOVE 

SUBI 

hRL 

MOVEM 

MOVE 

MOVEM 

PUSHJ 

JRST 



(CLEAR OUTPUT BUFFER 
(FILE NAME 



PDP.WNZCLR 

TACCXWD i.i: 

TACWNZBUF 

TACTHSOAT 

TACCSIXRIT /UFD/] 

TAC,WNZBUF*1 (FILE EXTENSION, DATE 

TAC, 045000 (PROTECTION (ANY PROJECT 

PDP,MDTMOT (FILL IN TIME, DATE, AND 

TAC,WNHBUF*2 

TACCXWD -200,1] (NEGATIVE WORD COUNT ANO PROGRAMMER NUMBER 



1 USER MAY WRITE IN MFD) 
MODE 



TACWNZBUF + 3 

TAC1,SATXWD 

TACMFOBLK 

TAC,-2(TAC1) 

TACCHKSAV 

TAC,WNZBUF*4 

TACMFDBLK 

TACWNZBUF + 177 

PDP.WNZWR 

REFERR 



(GO INTO WORD 4 OF RETRIEVAL IN'O 



(COMPUTE POINTER TO THE MFO, 
(RETRIEVE SAVED CHECKSUM OF MFD, 

(THE LAST WORD OF ANY BLOCK OF RETRIEVAL INFORMATION 

( MUST CONTAIN ITS OWN SLOCK NUMBER, 

(WRITE MFD RETRIEVAL INFORMATION ONTO THE DISK. 

(E^'ROR 
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J3S8 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 

1371 
1372 
1373 
1374 
137!; 
1376 
1377 
1378 
1379 
1310 
13B1 
13R2 
1383 
13B4 
13S5 
1386 
1387 
1388 
1389 
1390 
1301 
1392 
1393 
1394 
1355 



;NEXT CREATE THE NECESSARY SAT BLOCKS 0«J THE DISK 



f01433 
?01434 

001436 
001436 
001437 
001440 
001441 
001442 

001443 
001444 
001445 
001446 
001447 
001450 
001451 

001452 
001453 
001454 
001455 
001456 
001457 

001460 
001461 
001462 
001463 
001464 
001465 
001466 
001467 
001470 
001471 
001472 



261140 

20104U 

202040 
260140 
2011"i0 
2751.10 
201040 
260140 

554120 
315110 
2540ii0 
201100 
201040 
260140 
254000 

210040 
2711!?0 
274100 
323100 
270040 
260140 

554120 
326100 
515040 
436040 
551040 
301042 
301042 
254000 
274040 
2011''0 
260140 



001422 
001241 



001 

002 
000 
001 
001 
002 

001 
002 
001 
001 
000 
002 
001 



304 
074 
000 
330 
440 
061 

435 
316 
452 
437 

000 
061 

510 



00 

00 
00 
00 
00 
00 

00 

00 

40 
00 
00 
00 
00 
00 
00 
00 
00 



0002 
1441 
2316 
1460 
2316 
2061 

1443 

1464 
0000 
2116 
0001 
0000 
1453 
1473 
0002 

0001 

2061 



PUSH 
"OVEI 

REFSTl! MOVEM 
PUSHJ 
MQVEI 
SUBI 
MOVE I 
PUSHJ 

IFN FTSWAP.< 
HLRii 
CAMGE 
JRST 
MOVEI 
MOVEI 
PUSHJ 
JRST 



REFST21 



> 

REFST3! 



RFST3A1 



MOVN 

ADDI 

SUB 

JUMPLE 

ADD 

PUSHJ 

HLRZ 

JUMPN 

HRLZI 

lORM 

HRRZI 

CA!L 

CAIL 

JRST 

SUB 

MOVEI 

PUSHJ 



PDP.SATXWD 
TACSATENT 

TAC.SATPTR 

PDP,WN?CLR 

TACl.NUMBIT 

TACl.NUMRLK 

TACNUMBLK 

PDP.SETWNZ 

TAC1,?SATPTR 

TACl.LOWSWP 

REFST2 

TACl.NUMBIT 

TAC,0 

PDP.SETWNZ 

REFST7 

TACTACl 

TACl.NUMBLK 

TACl.LOWSWP 

TAC1,REFST3 

TACLOWSWP 

PDP.SETWNZ 



ISATXWO CONTROLS THE OUTER LOOP 

(SET UP SATPTR TO SHUFFLE THROUGH THE BLOCKS 



ICLEAR THE BUFFER 



IMARK UNAVAILABLE BITS AT END OF THE BLOCK, : 

IGET FIRST LOGICAL BLOCK NUMPER IN THIS <;aT SLOCK 

IIS ENTIRE BLOCK WITHIN SWAPPING AREA? 

)N0, JUMP AHEAD 

lYES, MARK IT ALL OFF LIMITS 



(HAVING SET ALL BITS, NO FURTHER TESTING IS NEEDED, 



IIS ANY OF SWAPPING AREA WITHIN THIS SAT BLOCK? 

INO. JUMP AHEAD 

lYES. MARK SWAPPING AREA AS UNAVAILABLE. 



IGET FIRST LOGICAL BLOCK NUMBER IN THIS SAT 9L0CK , 

lONLY FOR FIRST SAT BLOCK-- 

IMARK LOGICAL BLOCK AS BEIMG IN USE, 



TACl.SSATPTR 

TAC1.RFST3A 

TAC, 400000 

TAC.WNZBUF 

TAC.STATBK 

TAC.ITACl) IIS THE VITAL STATISTICS BLOCK WITHIm 

TAC,NUMBLK(TAC1) I THE RANGE OF THIS SAT t?LOCK 

REFST4 INO, JUMP AHEAD 

TAC.TACl 

TACl.l lYES. MARK IT UNAVAILABLE, 

PDP.SETWNZ 



ONCE'' 



1396 
1397 
1398 
1399 

1432 
14:^3 
14 5" 4 
14(»5 
14?'6 
1 407 
14?'8 

un 

14U 
1412 
1413 
1414 

1415 
1416 
1417 
1418 
1419 
1 420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
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C01473 
fI01474 

P101475 
?01476 
001477 
001510 
0015H1 
0015C2 
001503 
0015C4 
001505 

001506 
001507 



200040 
2 7 4 B 4 

261140 
553000 
554120 
301042 
301042 
2540i"0 
2 7 4 4 
2011>>0 
260140 

262140 
253040 



001433' REFST4! 
002337' 



000001 

000001 

001460' 

000000 

001466' 

001506' 

000002 

000001 

002061' 



REFST5! 



0015] 1 
001512 
001513 

001514 
"01515 
001516 

001517 
001520 



2601*0 
2000'0 
552i;'l 



001405' 
001477' 
000001 



550043 000000 
260140 002033' 
2540f0 002111' 



262140 
253040 



000001 
001522' 



001521 254000 001526' 



001522 
001523 
001524 
001525 



261140 
200040 
271040 
2540(10 



000001 
001512' 
001307' 
001435' 



MOVE 
SUB 

PUSh 

MHP?<; 

HLRif 

HAIL 

TAIL 

JRST 

SUB 

^U«E1 

PUSHJ 



000001 REFST6; POP 
001475' AORJM 



001510 200040 002335' REFST7! i^QVE 



PUShj 

MOVE 

nRRgKi 

^KRZ 

pUShJ 

JRST 

POP 

AOBJ^; 

JRST 



TACSATXWD 
TACCXKD 3,1:1 



(SET UP TO LOOP THRU LOGICAL BLOCK NUMBERS FOR MFD. 
j MFT RETRVL INFO, SAT BLOCKS, AND SAT RfTRVL INFO, 



POP, TAC 

TAC 

TAC1,»SATPTR 

TACfTACl) US THE INDICATED LOGICAL BLOCK' NUMBER WITHIN 

TAC,NUMBLK(TAC1) I This PARTICULAR SAT ELOCK 7 

REFST6 INO, JUMP AHEAD 

TACTACl 

TACl.l lYES, MARK IN-USE BIT, 

POP.SETWME 



POP, TAC 

TAC,REFST5 



ILOOP THROUGH THE WHOLE SET OF SPECIAL Bl OCKS 
) WHICH MUST BE MARKED UNAVAILABLE. 



TAC, ExwD -200, wn?buf: 

ICOMPUTE CHECKSUM 

ISTOPE IT TEMPORARILV IN THE SATENT TABLE. 



PDP.CHKSUM 
TACSATPTR 
TACl.KTAC) 



TAC, (PTP) 
PDP,KN?WR 
REFERl 

POP, TAC 
TAC, .*2 

REFSRF 



PUSH 


POP, TAC 


MOVE 


TACSATPTR 


Aoni 


TAC,SEMTS2 


JRST 


REFSTl 



IL0GICAL BLOCK NUMBER TO BE WRITTEN 
IWRITE THIS SAT BLOCK ONTO THE DISK 
iERROR 



;last Sat block written ? 

lYES, GO WRITE Sat retrieval information. 

INO, advance satptr and loop 
I back to DO next sat block, 
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11. !2 

14^3 

1434 

1 435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

14'51 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1450 

1451 

1462 

1463 

1464 

1465 

1466 

1467 

1466 

1469 

1470 

1471 

1472 

1473 

1474 

1475 



C01526 
^ai5?7 
510153^ 
001531 
001532 
001533 
(!01534 
001535 
1^01536 
001537 
001540 
001541 
001542 



001543 
001544 
001545 

001546 
001547 
001550 
001551 
001552 
001553 
001554 
001555 



260140 
200040 
202040 

550040 
500040 
202040 
515040 
260140 
202040 
510040 
242040 
541040 
202040 



201040 
2001''0 
2017^0 

550640 
504641 
202656 
205640 
202641 
3500^0 
271040 
?53l?0 



001556 200040 

001557 271056 
001560 202040 



001561 
001562 



260140 
2540^0 



002Z74' 

002333' 

002116' 

001412' 

002334' 

002117' 

555000 

002100 ' 

002120' 

001473' 

000007 

00:1001 

002121' 



001434' 
001537' 

000002 

iT 2 

00:»0?'l 

002122' 

400070 

0000;"1 

000016 

001624' 

001546 ' 



001427 ' 

000001 

002315' 



002033' 
002112' 



;FINALLY, WRITE OUT THE RETRIEVAL INFORMATION FQR THE FILE »SAT»,SYS 
REFSRF ! PUShJ POP,nN?CLR 



REFSRL! 



MOVE 
MOVE" 
WRR? 
HLL 

MQVEM 

HRL2I 

PUSHJ 

MOVEI^ 

HLLii 

LSH 

HRRI 

MOVE" 



001563 254070 



3715' 



HRRi! 
MRU 

VQVEM 
MOVSI 
"OVEM 

ACS 
4DDI 

AOBJM 



■-OVE 

Aoni 

MOVEM 



pushj 

JRST 



JHST 



ICLEAR THE BUFFER 
TAC.CSIXBIT /«SaT»/] 
TAC,WN?BUF ISTORE FILE MAME 
TAC, THSDAT 
TACCSIxniT /SYS/] 



TAC.KN?BUF+1 
TAC, 555000 
PDP.MOTMDT 
TAC,WNHBUF+2 
TACSATXMD 
TAC, 7 
TACl 
TAC,MNZBIIFt3 



MOVEI TACSATENT 
MOVE TACl.SATXWO 
"DVLI AC2,;'' 



fSTQPE EXTENSION AND DATE 
iPROTECTION CODE (UNTOUCHABLE FILE 
IFILL IN TIME, DATE, AND MOOF 

ICOMPUTE NEGATIVE WORD COUNT 

IPROGRAMMER NUMBER=1 



(PREPARE TO STORE POINTERS TO ALL THE SAT BLOCKS, 



*C1.TAC1 !GET LOGICAL BLOCK NUMBER OF SAT BLOCK, 

ACl.KTAC) IRFTRIEvF ThF CORRESPO-^JD I NG CHECK-Sum. 

ACl,yN?BUF*4(AC2) iSTORE A POINTER WORD IN THE BUFFER. 

ACl, 40,1800 IRFSTORE SATENT ENTRY TO CORRECT INITIAL VALUE, 

ACl.KTAC) 

AC2 

TAC,SENTS2 

TACl.REFSRL IIS THAT ALL THE POINTERS ? 



TACMFOBLK 
TAC,1(AC2) 
TAC,WN2BUF*177 



PDP,',<N?WR 

referr 



rPOPjl 



IF NOT, LOOP BACK. 



lYES, 

inow compute logical block mumper of this sat 

! Retrieval information, and store it in 

I The LAST W^RD OF THE BLOCK (THIS' IS 
I REQUIRED FORMAT OF ALL RETRVL INFO), 

IWRITE THE it?AT»,SYS RETOVL INFO ONTO Thf DISK. 
(ERROR 



(•«»FXIT FROM PDP-10 DISK REFRESHER .•»« . 



ONCER - 



1476 
1177 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1402 
1493 
1494 

1495 
1496 
1497 
1496 
1499 
15PI(2 
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15^1 

IS-'Z 

1533 
15!! 4 
15P5 

15 'M 
ISC'S 
1609 
1510 
1511 
1512 
1513 
1514 
3 515 
1516 
1517 
1518 



001564 
001565 
CI01566 
001567 
001570 



(101577 
0016SI0 
001601 
0016i'2 

001603 
001604 
{1016C5 
001606 
001607 
001610 
0016U 
001612 
001613 
001614 
001615 
001616 



001617 
001620 

001621 
001622 
001623 



JROUTINE TO WRITE THE FIXED PLOCK OF VITAL STATISTICS ONTO THE DISK, 



260140 
200040 
200121 
202101 
253040 



002074' WRSTATi 
002340' 
001617' 
002116' 

001566' 



001571 200040 002341' 

001572 202040 002314' 

001573 201040 000001 

001574 260140 002033' 

001575 254000 001577' 

001576 2540K0 001563' 



PUSHJ 
MOVE 
WRSTAll MOVE 
^iOVE^^ 
AOBJN 

i^OVE 
MOVEM 



PDP.WNHCUR 
TACCXWD -WR?TSHi0] 
TAC1,9WRSTA9(TAC) 
TAC1,WN2BUF(TAC) 
TACWRSTAI 

TAC.CSIXPIT/'^TATeK/] 
TAC,WNZBUF+tni26 



ICLEAR THE OUTPUT BUFFER 

ISTOPE KEY QUANTITIES IN THE OUTPUT BUFFER 



ISTORE AN IDENTIFIER NEAR THE 

I End of the VITAL STATISTICS BLDCK. 



MOVEI TAC.STaTBK 

PUSHJ P0P,WN2WR 

JRST WRSTA2 

JRST CPOPJl 



201040 
260140 
260140 
263140 

416031 
521012 
522124 
522031 
522032 
522230 
412311 
202371 
446471 
201011 
501024 
0000=!13 



00005'0 
000000 

0000Z0 
0000?0 
0000''0 



001603' 
001002' 
000734' 
000000 

647236 
751222 
053222 
420246 
444646 
351500 
741626 
620210 
327100 
045630 
106424 
00!'.000 



WRSTA2t MOVE! 
PUSHJ 
PUSHJ 
POPJ 



TAC,WRSTM1 
POP, ICONM 
POP.OPOUT 
POP, 



(WRITE THIS VITAL STATISTICS BLOCK ONTO THE DISK. 

IWRITE ERROR 

(GOOD WRITE, •••SUBROUTINE EXIT^»», 



(PRINT ERROR MESSAGE IF THIS VITAL WRITE FAILS, 
(THEN ALSO GIVE AN ERROR RETURN FOR FURTHER ACTION, 



WRSTMl: ASCIH /CANNOT WRITE VITAL STATISTICS BLOCK ON DISK. 



HELP I 



(TABLE OF POINTERS TO THE VITAL STATISTICS THAT ARE STORED IN "STATBK" OM THE DISK, 



001556' WRSTA9! XWD 
001544' XWD 



001320' 
002316' 
001322' 



001624 000070 000000 



XWD 

xwn 

XWD 
IFN FTSWAP,< 

XWD 



IFE FTSWAP.< 
XWD 



.MFDBLK 
.SATXWD 

.LBHIGH 
•LOWSWP 
,K4SWAP 

.MAXSWP 



CiLOWSWP 



(LOGICAL BLOCK NUMBER OF MFD RETRIEVAL INFORMATION 
(LH = - NUMBER OF SAT BLOCKS ACTUALLY IN EXISTENCEi 
(RH t LOGICAL BLOCK NUMBER OF FIRST SAT BLOCK 
(HIGHEST LEGAL LOGICAL BLOCK NUMBER ON DiSK(S) 
(LOWEST LOGICAL BLOCK NUMBER ALLOCATED FOR SWAPPING 
(NUMBER OF IK BLOCKS OF DISK SPACE FOR SWAPPING 

(MAXIMUM NUMBER OF THOSE IK BLOCKS ACTUALLY 
( USED SINCE THE DISK WAS LAST REFRESHED. 



(LOWSWP DOES DOUBLE DUMMY DUTY IN 
( NON-SWAPPING SYSTEM 



ONCER - ONCE ONLY OPERATOR DIALOGUE AND 10 DEVICE IM T , ( BURR'^UGH? DISK) f<ACRri,V36 19!a8 t-J!JN-69 PAGE 49-1 
T, HASTIMGS/RCC/CHW TS il4 JUN 69 Vtll 



1519 
1520 

1531 



a00j)?l6 WRSTS2=.-WRSTA9 
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15?2 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 



C01625 
001626 
?01627 
001630 
001631 
001632 

001633 
001634 
001635 
001636 



201040 
260140 
2540?0 
200040 
312040 
254ei?0 

200040 
200101 
202121 
253040 



(HOUTlNt TO READ IN THE FIXEO BLOCK OF "VITAL STATISTICS" FROM 

1 THE DISK AND nlSTRlgUTE TuEM To THE APPROPRIATE CORE LOCATIONS. 



000031 RDSTAT: MDVEI TACSTaTSK 



002013' 
001640' 
002314' 
002341' 
001640' 



001637 263140 000000 



PUShJ 

JHST 

MOVE 

CAME 

JHST 



002340' MOVE 

002116' RDSTAl; MOVE 

001617' MCVEM 

001634' AOBJN 



POPj 



PDP.WN^RD IREAD IN THE VITAL STATISTICS BLOCK, 

RDSTA2 lERROR 

TAC,WN2BUF*tP126 iCHECK THE IDENTIFIER TO VERIFY THAT 

TACCSIXBIT /STATBK/3 i THE CORRECT BLOCK WAS READ. 

R0STA2 lERROR, STATISTICS BLOCK APPARENTLY WAS CLOBBERED, 



TAC,cx..iD -wr';tsz,0: 

TACl,WNZauF(TAC) 
TACl,Si«IRSTA9(TAC) 
TAG, RDSTAl 



POP, 



ISTORE AWAY THESE IMPORTANT PARAMETERS 
I UNDER CONTROL OF A TABLE IN Thf "WRSTAT" 
; ROUTINE WHICH WRITES OUT THIS VITAL 
) STATISTICS BLOCK ONTO THE mSK. 



I»«»SURR0UTINE EXIT»o». 



1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 



1550 
1551 
1552 



001640 201040 001645' RDSTA2i MOVEI 



001641 
001642 
001643 
001644 

001645 
001646 
001647 
001650 
001651 
001652 
001653 
001654 
001655 
001656 



260140 
260140 
260140 
254030 

532232 
202111 
202472 
446472 
515011 
521344 
436170 
202450 
426471 
435021 



001002' 
000734' 
000467' 
001625' 

440630 
151626 
440650 
444606 
447646 
051652 
551650 
543244 
044634 
505032 



PUShJ 
PUShJ 
PUSHJ 
JHST 



TACROSTMl 

POP, ICONM 
PDP,OPOUT 
PDP.REF 
RDSTAT 



;PRINT ERROR MESSAGE IF THE VITAL 
I STATISTICS SLOCK CANNOT BE READ 

JGO BACK THRU THE REFRESH OULOGUE IN 
INOW TRY AGAIN, 



•OmCE", 



RDSTMli ASCI? /VITAL DISK "STATISTICS LOST, SUGGEST REFRESHING! 



001657 050240 000000 



ONCE- 



1555 

1356 

1557 

1558 

1559 

)560 

1561 

15'^Z 

155.3 

1 5ti 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1 574 

1575 

1576 

1577 

1 578 

1579 

1 510 

1501 

1532 

1553 

15f>1 

1595 

1586 

1587 

ISIS 

1539 

1593 

1591 

1592 
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JROUTK'E TO -ETEBMINE THE CURRENT SYSTEM'S DISK CAPACITY, I.E., THE MUMBrR OF 
i DlbKS ATTICHEO TO THE RC-10 DISK SYNCHRONIZER T004Y. 



;0N^ EXIT Fi^o'' 



''HIS SUBROUTINE. 

C(T»C) = I'lGHrsT LOCICAL OlSK BLOCK NUMRE"^ MOW EXTANT. 



?01660 
001661 
001662 
PI01663 



001664 
001665 
001666 
001667 
001670 
001671 
001672 
001673 

001674 
701675 



201040 
221040 
261140 

202040 



201040 
261140 
260140 
2540r:0 
262140 
271040 
315ii4e 
254y?0 

275040 
262140 



0000£«0 

301501' 
001621' 
001662' 



000000 
000001 

002013' 

001677' 

000001 

001661' 

001663' 

001665' 



CAPCTY ! 



CPCTli 



001676 263140 000000 



1593 
1594 



001677 
001700 
001701 



001702 
001703 
001704 
001705 
001706 

001707 
001710 
001711 
001712 
001713 
001714 
001715 
001716 
001717 
001720 
001721 
001722 



262140 
7173?0 

326040 



201040 
260140 
260140 
262140 
254000 

422232 
512130 
426452 
202112 
472164 
502030 
545012 
512071 
472232 
462233 
446371 
(JI500O10 



000201 CPCT3! 

020000 

001674' 



001707' 
001002' 
000734 ' 
001675' 
001660' 



345500 
142100 
247644 
551222 
041672 
344650 
342602 
020222 
444602 
240650 
606424 
001000 



■"OVEt 

IMULI 

°USH 

"OVE" 



><DVE! 

FUSH 

PUSHJ 

JRST 

DCP 

AODI 

CA*<GE 

JRST 



0000?1 CPCT2! SURI 
001672' PlP 



TAC.VU'.'SAT 
TAC;VU"SLK 
PDP.LBHIGH 
TAClBnigh 



T A c , ;i 

PDP,-TAn 

POP ,'JN?R1 

CPCt3 

PQP.-TAC 

TAC,:MU"eLK 

TAClBHIGH 

CPCTl 

TAC^l 

RQP, L8H ir,H 



"Z" 



POP 

CCMS? 

JUWPN 



PllP •: 



PUP, TAC 

DSK,"R'iY 

TAC,CPCT2 



"■'QWEI TACCPCT^I 

PUShj P0P,IC0NM 

PUShj PQP.OPOUT 

°0P PDP.LBHIGH 

JRST CAPCTY 



JCOMPUTE A»Jn SAuE MAVIMUM POSSIBLE CAPACITY, 
ISAVE EXISTI\G VALUE OE HIGHEST LEGAL BLOCK NUMBER. 
ITEMPORARILY CHANGE THIS VALUE SO THAT ThE VALIDITY 
I CHECK IN "nSKIMT" WILL NOT PAIL SPURIOUSLY, 



iATTEMPT TO READ FIRST BLOCK OE EACH SUC'-E:SSIVE DISK. 
lEPROR 



(ALREADY TRirp ALL DISKS ("AXI'-UM CAPACITY) ? 
iNO. GO TRY THE NEXT U.NE . 



(RESTORE PREVIOUSLY EXISTING VALUE OF THE HIGHEST 
I LEGAL LOGICAL DISK BLOCK NUMBER. 
(eooSUBROUTl'JE £XITo«e 



INON-EXISTEnt DISK? 

iYES, THE LI«IT OF DISK STORAGE HAS BEEN FOUND. 

I HOWEVER. DISK MUST ALWAYS BE PRESENT. 

iNO, SOME OTHER TYPE OF READ ERROR. 

IPRINT ERROR MFSSAGE 

iTRY AGAIN 



CPCTi.ll! AS"!? /DISK READ E^ROR DURING CAPACITY SEARCH INITIALISATION 



ONCER 
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4-JUNI-6'' PACt 37 



1595 
1596 
1597 
1598 
1599 

15.n 
1 5C2 

l6-':3 

1674 
16 15 
16-6 
16^7 
16'^8 
16?9 
1613 
1611 
\b\2 
1613 

1614 
1 61 5 
1616 
1617 
1 61 3 
1619 
16 ■'2 
1 6?1 
1 6?2 
1 62 3 
16'4 
1 5"5 
1 6''6 
16?; 

1 6;^a 

1 6'9 
1 o ^2 
■'671 



1 6 ',' 2 
16.! 3 
1 6'<4 



(»017?3 
PI017P4 
001725 



p:ai7?7 

(»H1730 
3 01731 

C 1 7 7 2 
C01733 
?I01734 
001735 
001736 



f'ai 737 
r!01740 



!»01741 
!^ 1 7 -i 2 
H01 74J 
ri01744 

■■'3174& 
■,"" a 1 7 •> 6 
W01747 
:1017'50 
™ 1 7 =U 
!'017'i2 
r''017'^3 
J' 1 7 '■ 4 
'''01 755 
:'017'^6 

C017'=.7 
701 760 
?01761 
P01762 
701 763 
("01764 



717240 
607040 
607040 



200010 
202B40 
200040 

251040 
201040 
260140 
?54£-.'0 
263140 



201010 
717J '0 



2 1 i' 4 
26f'l40 
260140 
2540. ■« 

4222.'2 

412311 
201 4 "4 
446510 
5124"il 
422552 
4 3 5 :; 1 2 
522125 
4 1 6 2 *. 4 
426271 

050240 
212330 
522131 
416124 
436330 
211012 



SHOUTINE TO ASSURE THAT THE 'STATDS OF THE WRITF-LQCK SWITCHES ON THE 

I DISK MAINTENANCE PANEL IS SUCH THAT TMEV ARE PROTECTImG "LESS THAN 0070". 

iTHIS ROUTINE LOOPS PRINTING AN ERROR MESSAGE UNTIL THE SWITCHES ARE O.K. 



003001 
013777 
004000 



WRITUK! 



roNi 


OSK, 


,TAC 


TLNM 


TAG, 


.13777 


TLNN 


TAG, 


.<PLGSW>S53 



r»017?6 2540i'0 001741' 



JHST 



WRLKS 



leOUNDARY ?ERO ANO MAINTENANCE-SEGMEMT OrE 7 

lYES. IS ROTARY SWITCH SET 

I To EITHER V UNDER OR OVER(AS OPPOSED 

I TO UNDER OR X OVER) 

INH, GO PRINT ERROR MESSAGE AND LOOP, 



IAN UNFORTUNATE HARDWARE OVERSIGHT MAKES IT IMPOSSIBLE TO SENSE THE DIEFERENCE 



002342' 
002116' 
002343' 

002315' 
000000 
002033' 
001737' 

000000 



001745' WRLK2: 
000200 



001760' WRLK8! 
001002' WRLK9! 
000734 ' 
001723' 



BETWEEN "PROTECT LESS THAN" AND "PROTECT LESS THAN OR EOUAL", 
THIS ROUTINE t'UST ACTUALLY TRY WHITING ON TRACK 0000, 

MOVE TAC,C252525252525] 

"OVEM TAC,WN7BUF 

MOVE TAC,[X\:n WMZnuF,l.iN?BUF*i: 



ThEREF-'RE, 



3 4 5 5^0 
741026 
053644 
52^212 
751100 
2 4 4 6 3 4 
751222 
546236 
041520 
327032 

00?3ZI0 
14 4 6 3 4 
64^634 
051612 
547.250 
353622 



BLT 



TAC,WN7BUF*177 



MQVEI TAC,0 

PUSHJ PDP,WN?WP 

JHST t'RLK' 

nOPj PQP. 



IWRITE PATTERN IN BLOCK 0. 

lERROR 

i»»»GOOD EXIT FROM WRITLK SUPROUT I NE" »• , 



"OVEI 
CONS' 



MOVE I 

PUSH.) 
PUSH.J 
JHST 



tacwRlkmi 

OSK.WRPE 



■TAC, WRLKM2 
POP. lCOi\M 
PDP.OPOUT 
aRITLK 



IWRITE-PROTEGTION ERROR ? 

lYES, PROTECT SWITCH ERRONEOUSLY SET ON "LESS THAN 

I OR EOUAL" INSTEAD OF "LESS THAN", 

INO, SOME OTHER FAILURE DURING THE wRITE OF PLOCK I 

URITE-LOCK "SWITCHES SET 1 "JCiRRErTL Y , 

JPRINT ERROR MESSAGE 

IGD TRY AGAIN 



WRLKMl! ASCI' /DISK =LnCK - WRITE ERROR DURING WRITE-LOCK CHECK. 



/ 

WHLKM2! 4SC1' /"MAINTENANCr SEGMENT" SWITCH MUST BE OFE, AND 
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4-JUf<-69 PAGE t>" 





001755 


522071 


020232 




(?01766 


526472 


420204 




001767 


425011 


743214 




f-0177^ 


261K10 


147210 


1635 


C01771 


054250 


444646 DISK wRi 




001772 


455012 


751222 




001773 


522124 


050244 




001774 


476510 


541650 




001775 


446371 


620246 




001776 


536232 


441520 




001777 


426464 


046652 




002000 


5155f4 


041212 




f0?0Wl 


202470 


552100 




00?002 


522364 


030140 




0020P3 


3014.''4 


040534 




00?a0'( 


4210'/M 


245212 




00P005 


516454 


052220 




002a'"6 


406344 


227032 


1636 


00?007 


052151 


154100 FIX THEM 




002010 


522210 


546500 


1537 


002011 


205004 


106424 


1538 


002012 


050000 


000000 / 



DISK WRITE PROTECTION SWITCHrS MUST BE SET TO 0000 AND "lESS TwA\'" , 
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'639 
1 540 
1641 
1642 
16«3 
164 4 
1645 
1646 
16 4 7 
1 648 
16^9 
16'50 
1651 
16^2 
1653 
•!6'54 
1655 
1656 
1657 



?0?013 

t"02l!15 

(102016 
[«U22il7 
C02a?0 

';i02^?i 

t"02^?2 

('0?a?3 



7172>^-0 
7173i-B 
2543r'0 

76114 
20Klt'0 
?0?l/0 
200i;-:0 
?6?140 
262140 



37771.0 

00?«.i30 

P0?i-13' 

f 0f"00a 

002344 ' 
002016' 
5"02345 ' 
00!10,ia 
002K20 ' 



iDISK READlMG ROuTTmE for USr ONLY DURIi^JG OWCL-ONLY CODE. 
; AV0U)<5 USIiNG THE ''Q^'noR 'uruFS AND IMTERi'UPT STRUCTURE, 

;0M ENTRY TO THIS SUaROUTlVE, TaC CONTAINS THE LOGICAL BLOCK NUMRER OF TuE DISK 
; HLOCK nHITH 1=^ TQ 6F READ I^lTP THE ONrE-O'-'LY DISK UUFFER AREA, 



WN'JRnl 



-owe 

CON'S? 

JK'^T 



i''020 24 26 (114 a 002f45' 



PUSH 
''OVE 
voVE« 
"OVE 
f USh.' 
>INj?RnC! 1^0° 

PUSHJ 



jSK,'^ATERS!DEVERR1SFTe:?r1RESETR (CLEAR THE DISK =:YNCHRON 1 2ER 

nSK,!)USY.-jT!D"NFFLi; 

VNHRh rjON'T PROCEED UNLESS THE CLEAR WORKED, 

POP,nSKF'^G ;SAVE THIS I ^iSTHUCT I ON FROM "DSKIfjT". 
TACl,[HPR2I TAC, "I] !N,Ow TAMPER '"'ITH THAT SAVED LOCATION SO 
TACl.DSxFDG ) THAI DSKlNjT WILL NOT ENARLE ANY IiNTERR'ipT CHANNEL. 

TACi.Cxwn -2C0,*iMHBur-i: 

PDP,"FRE'i -JCALL lEVICE-OFPENOE'VT RIUTIME IN "DSKINT" DIRECTLY. 
pOPi'^SKFTG JRESTORE the molested INSTRUCTION IN DSKINT, 



PQP,l..'N?>,A r 



I.1AIT UNTIL THE READ IS FINISHED, 



1659 
16«^a 

16«.2 
1663 
1664 
1665 
1666 

166 7 
1 663 
1669 
1670 
1071 
1672 
1673 

167 4 
1 675 
1 676 
167 7 
16 7 8 

15 7 9 
li''^ 
16-1 

'T'2 

1 6 ■■' 3 
!6'<4 
'6^5 

1 6 " 5 
16H7 
16S8 
1 6°9 

1 6-;0 

16'1 



P"a2025 
("02026 
r02a27 

|'a203^ 

f 2 /i 3 1 
!'02032 



717370 
251v"^0 
2 /" 1 .'0 
316i:-0 
32ty.'3 
263l'10 



3777'"0 



-c'JSJ 



'SK, "lATES. !!;!':" VERB I =F TERR 



iANY ERRORS ? 



002032' JR'^T 

00'/Z?0 '^OVE 

K070;'0 CA'-'x 

'ZXi'im AC- 

000000 aIN7R"X; nc'^j 



-.N?R"X lYES. GIVE ERROR RETUR'^, 

TAC1,R'-XCC« MO, HUT CHE'-K THAT THE FINAL VALUE OF TmE 

TAC1,R"XFI\ J CHANNEL CONTROL WORD '-IAS AS EXPECTED Ai SO. 

(PHP) ■ !»»itGOOO RETilRN'<nt» 

njP, iEPR^R R'^TURN, 



7 2 ? 3 3 
5'02034 
002035 

702. '36 

702:37 
i"0 2'^4 
702;-'=l 
702042 
'"02043 



7172-0 
717330 
2 51/.0 



3 7 7 710 
0070 3 
702i33' 



20' 40 ;' 0^115' 



761140 
20P170 
202170 
2071 '0 
26714f) 



702023 ' 
002344 ' 
002737' 
002345' 
0e7 3'>0 



7020<14 2540'0 0H2023' 



!OISK WRIT!',': ROUTINF FQO l'S<^ ONLY DURING 0\CE-ONLY COOE , 
i AVUIi!'; USING THE vDMTOR '"UEUFS AND IviERRUPT STRUCTURE, 

;UN EWTHY T{- TUIC SURRCUTP.E. TAC CONTAINS !>'£ LOGICAL RLOCK NUMBER OF' T '< E DISK 

! -^LOCK wMp-H 1=; To BF '.JRITTE" flijTO l»l LIS'^ FROM THE ONCF-ONLY DISK PUFFER AREA, 

'■N^'^j: rC- :. n5K,:!ATEPR: D^VFRniSFTERRtRFSFin ;CLEaR Tut DISK cyNCHRON I ZER , 

rc'i^ OSK, ^USYTT InfNFPi 3 
.jR=;i ■,N''/(= ;-)i^N'T PROCE'"0 UNLESS ThF CLI^AR 'vORKFri. 

■ ^v-.'^ 'iC,L6=;AVE iSAVe LJGICAL f^LOCK \uM,3FR I ■" CASE A'^' ER-;0R RETURN 

i "UST RF TAKEN FROM TI<F "RLFRFSH" SUbRO.TINE, 
ni,c„ pip,"3kF''G ;3«VF ThIS r'ST.,UCT ion pi'Q'^ "DSKIiT", 
■UVr; T.irj ^ [.i-p^ I TAT,-] ;f,o^ TanPER vITH THAT SAVET LCCAtION SO 
•■C",.-' TACl ,USKF:.)G ; THAT OSKl-gT 'JUL ivOT E^'APLE AMY I.'jTERR 'PT CHANNEL. 
"CVL ^kCl.HtWr, -2'"0,^N^BUr-l] 

nu<;-J PaP,-'FjRT ICALL TEVICE-DFPENDENT ROUTINE IN "DSkIN"' DIRECTLY, 

IKCT 



■:N^R'tC 



!THE RF.,A1NDFR OF THE KRITr RCUTljE IS r'ENTICAL 
! TO THE REAP RQjTr«-. 
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1692 
1693 
1694 
1695 
1696 
1 697 
16na 
1699 
171^0 
17!«1 
17£»2 
1773 
]7!»4 
17!?5 

17?6 
17?7 
17;?8 
1779 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
17?0 
17?1 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 



JSI18R0UTINE TO 1.4TCH FflR THE DOME FLAG TO COME ON ANT TIME OUT IF 
; IT OOESNi'T COME up S00\' EN'-UGh {SAY 5 SEC nR SO), 



2045 
2b)46 
2047 

2051 
2B52 
2053 
2054 
2055 
2056 
2057 
2060 



002061 
002062 
002063 
002064 
002065 
002066 
002067 
002070 
002071 
002072 
002073 



002074 
002075 
002076 
002077 



?00a40 

7173S'0 
263140 
367040 

201040 
260140 
260140 
262140 
263140 
422272 
442531 
;"64240 



200640 
231040 
2057i'0 
2130'10 
2417t'2 
4367''1 
2417!'0 
3277C0 
271040 
366640 
263140 



4020?0 
200040 
251040 
263140 



002346' 
000010 

000000 

002046' 

002056' 
001002' 
000734' 

000001 
000000 
345500 
643534 

0051030 



000002 

000044 

4000^10 

000002 

000000 

002116' 

777777 

002072' 

000001 

002065' 

000000 



007116' 
002343' 
002315' 

0000C10 



wn?waT : 
WNEHTL ; 



'^ATMSG: 



MQVE 

noMS^ 

PQPJ 
•^OJG 

MOVE I 
PUSHJ 

pushj 

POP 

POPj 

ASCI? 



TAC,['ni00?!0'"0] !AT MOST ONE MILLION TIMES THRU THE C0NS7tS0JG LOOP, 

DSK.nONEFLG IQONE FLAG O'v YET ? 

POP, I YES, GOTO EXIT 

TAC,WN?WTL INO, TIMED OUT YET ? 

lYES. PRINT "DISK HUi^G" ERROR MESSAGE. 
TACiWATMSG 
PDP.ICON" 

PDP.nPnuT 

POP, TAG 
PQP^ 

/oisk hung. 



ISKIP UP A SUBROUTINE LEVELi 
I ERROR RETURN FROM WNZRn OR 



AND GIVE 

WNZWR. , . , 



An 



iSUHRUUTINF TO SET SPECIFIED BITS IN A SAT BLOCK WHILE FORMING IT IN WNZnUF 



iENTRY CONDITIONS 



CtTA'-) = FIRST BIT NUMPER TO SET (NUMBERED SEGINNtNG AT 0) 
C(TAC11 = VU^-BER OF PITS TO SET 



SETWNii MOVE ACl.TACl 

IDIVI TAC.t036 

MOVS! AC2/40^.21?0 

MOVNS TACl 

ROT AC2,(TaC1) 

STWN?l! ORM AC2,;wN2BUF(TAC) 

ROT AC2.-1 

JUMPG AC2,STWN?2 

A D P I TACl 

5TWNH2! SOJN ACl.ST^NEl 

POPJ POP.. 



ISUBROUTINE EXIT. 



iSUBRUUTINE TO CLtAR THE ONCE-nNLY OUTPUT gUFFER, WNEBUF 
WNPCLRl SET?" WN^BUF 

MOVE TAC.rX.VD WNHflUF, WN?BUF + 1] 

BLT TAC,WNZBUF*177 

POPj POP. ISUBROIITINE EXIT 



ONCEh 



1732 
1733 
17 34 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
17 44 
1745 
174 6 
1747 
1748 
1749 
1750 

1751 
1752 
17^:3 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
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(SUBROUTINE TO MASK THE TIME. BATE. AND DATA MODE (=14 FOR BINARY MODE) INTO ACCUMU- 

1 LATOR TAC IN THE FORMAT USED IN WORD 3 OF A DISK RETRIEVAL INFORMATION! BLOCK. 



0021P!0 
002101 



261140 0000^1 MDTMDT! PUSH 



200040 001000' 

0021PI2 231040 000274' 

!!02103 242040 000014 

002104 434040 001531' 

002105 661040 000600 

002106 436043 000000 

002107 262140 000001 
002110 263140 000000 



MOVE 
IDIVI 

LSH 

lOR 

TLO 

lORM 

POP 

POPJ 



(GET TIME IN JIFFIES. 
ICONVERT TO MINUTES 



POP, TAC 

TAC, TIME 

TAC, JIFMIN 

TAC,fD12 

TACTHSDAT ITODAY'S DATE 

TAC,14B<'D12*t018> (BINARY MODE 

TAC, (POP) 

POP, TAC 

POP, (SUBROUTINE EXIT. . . . 



(ERROR EXIT FROM "REFRESH" WHEN A BAD WRITE ON THE DISK OCCURS DURING REFRESHING, 
002111 262140 00(1001 REFERl: POP POP. TAC (CORRECT PDP IF EXTRA PUSH HAD OCCURRED. 



002112 200040 002115' REFERRi MOVE 

002113 263140 000000 POPJ 



TAC.lBSAVE 
PDP. 



(GET BLOCK NUMBER FOR THE ERROR MESSAGE AT REF4, 
(THIS NO-SKIP RETURN RE-ENTERS THE REFRESH OIALOGUE, 



(MISCELLANEOUS STORAGE SPACE USED BY THE PDP-10 DISK REFRESHING ROUTINE. 



002114 0000fl0 000000 CHKSAV! 

002115 0000'^0 000000 LBSAVEl 



002116 

002316 0000i''0 000002 



WN?BUfi BLOCK 

LOWSWPl 
> 
> 



200 (BUFFER FOR READING AND WRITING DISK 
( BLOCKS DURING THE ONCE-ONLY CODE. 

(LOWFST LOGICAL BLOCK FOR SWAPPING 

(END OF REFRESH PROCEDURE FOR THE RD10 DISK. 

(CLO^E AN EVEN EARLIER FTDISK CONDITIONAL, 



ONCE" 
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17fi9 








1770 








1771 








1772 








1773 








1774 








1775 








1776 








Mil 








1778 








\1T) 








17P0 








1781 








17^2 








17P3 








17S4 


00P317 






1785 


002317 


000001 


000001 


17R6 


002320 


000067' 


000040 


17S7 


002321 


264000 


000125' 


17(18 


002322 


376776 


000400 


17fl9 


^02323 


777760 


001026' 


1790 


002324 


200000 


000000 


1791 


002325 


3310i'7 


000052' 


1792 


002326 


440600 


000004 


1793 


002327 


236460 


000000 


1794 


002330 


436471 


000000 


1795 


002331 


000011 


111111 


]796 


002332 


654644 


000000 


1797 


002333 


126341 


641200 


1798 


002334 


637163 


000000 


1799 


002335 


7776f>0 


002116' 


18!'0 


5'02336 


777600 


000001 


13!"1 


002337 


000003 


000001 


18'"2 


002340 


777772 


000000 


18:13 


°!02341 


636441 


644253 


18!14 


002342 


252525 


252525 


\Wi 


002343 


002116' 


002117' 


js-je 


002344 


551040 


000000 


18fi7 


002345 


777600 


002115' 


lar'B 


002346 


000003 


641100 



INTERNAL FTCHEOK 
IFN FTCHEC.< 

EXTERNAL CHKOEG.CHKEND,CHECKiM0NPTR,K0NSUM 



CK! MOVEI TAC.CHKBEG 
SUBI TACCHKENfl 
HRLI TAC.CHKREG 
MOVSS TAG 
PUSHJ POP, CHECK 
MOVE" TACl.MONSUM 
PQPJ POP, 



ICOMPUTE AND STORE CHECKSUM OF THE PURE AREA OF 
I THE TIME-SHARING MONITOR, 



ONCEND: END 



NO EPHORS DETECTED 
PROGRAM BREAK IS 002347 
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SYMBOL TABLE 



ACl 


00t!ei5 


INT 


ALRL"K 


000348 


t 


8LKSPK 


001323 


' EXT 


CHI 


0001371 


' EXT 


0H4 


0001377 


' EXT 


CH7 


0001-^5 


' EXT 


CHKSaV 


002114 


1 


CNTDP 


000432 


' EXT 


COMMES 


001005 


' EXT 


CPCT? 


001674 


1 


CPOPJ 


000741 


' EXT 


CRLPMS 


001200 


1 


DATERR 


006000 




nCPUTR 


000717 


• EXT 


ODTE>'D 


000427 


• EXT 


DECI'.- 


000S24 


• EXT 


DELETE 


000717 




DEVERR 


2111^0 




DEVNAM 


00a0:'0 


INT 


DEVSER 


000003 


iNT 


DFHN21 


001241 




OISKUP 


001315 


EXT 


nsK 


000170 




DSKQOB 


001244 


EXT 


OTIP 


400000 




FT2RFL 777777 777777 


INT 


FTOISK 777777 777777 


iNT 


FTSWAP 777777 777777 


INT 


GET2 


000704 




GETL'.'l 


000731 




INLMES 


0012217 


EXT 


INTNIIM 


000317 


EXT 


IOCO«:f 


001120 




JIFMIN 


002102 


EXT 


JOPSYM 


000146 


EXT 


jSATna 


001250 


EXT 


LBSaVE 


002115 




LINE 


000002 




LIMKSR 


000000 


INT 


MAKEMD 


000422 


EXT 


MFOaLK 


001617 


EXT 


MQIN 


001256 


EXT 


MXK2SW 


000527 


EXT 


NOPIOH 


000056 




NUMBIT 


001446 


EXT 


NXM 


010000 




OCTPVT 


000551' 


EXT 


0NCE3 


000431' 




ONCE"; 


000340' 




0NCE7 


000355' 




ONCEMD 


002317' 




ONCEPN 


000020 




0P0UT2 


000744' 





4C2 


000016 


INT 


ANn2RG 


"00132' 


EXT 


nuSYCT 


000020 




CH2 


000073' 


EXT 


CH5 


0001"il' 


EXT 


CHCPAR 


001070 




CHKSUM 


001511' 


EXT 


CONFIG 


000170' 


EXT 


coRlim 


000464' 


EXT 


CPCT3 


001677' 




CPOPJI 


001576' 


EXT 


CTEXT 


000410' 


FXT 


OATlOP 


003203' 




noE 


100000 




DDTSYM 


000156' 


EXT 


OECIN'l 


000260' 


EXT 


DESmES 


0011';7' 




lEvns 


000002 


INT 


OEVOPR 


000416' 


EXT 


DFGETF 


000000 


EXT 


npwRT 


00204J' 


EXT 


DONEFL 


000010 




OSKHL'f 


001246' 


EXT 


•^SKFDG 


002041' 


EXT 


ERROR 


000106' 


EXT 


FTCCL 777777 777777 




c-TLOGI 777777 777777 




FTTTYS 777777 777777 


INT 


GETCHR 


001071' 


EXT 


ICONM 


001002' 




intlop 


000041' 




inttab 


0023^5' 


EXT 


lOS 


000000 


INT 


JOSN 


000135' 


EXT 


JR?TI 


000066' 




K4SWAP 


001623' 


EXT 


LENGTH 


001153' 




LINEP 


001i)46' 




L0C4? 


000067' 




«AXSWP 


001624' 


EXT 


i^OVjmP 


000142 1 




MQOUT 


000000 


FXT 


mXkmES 


0011^0' 




NRDY 


020000 




i^UMBLK 


001671' 


EXT 


NXME" 


000400 




ONCE 


000162' 


INT 


0NCE4 


000342' 




0NCE5A 


000465' 




0NCE7A 


000366' 




ONCEOP 


000403' 




OPOUT 


000734' 




OPRm 


001125' 





ALRCHN 


000060' 




APRCMK 


000775' 




CAPCTY 


001660' 




CH3 


000075' 


FXT 


CH6 


000103' 


rXT 


CHDPAR 


002000 




CHREC 


000010 




CONFLP 


000320' 




CPCTl 


001665' 




CPCTMl 


001707' 




CRLF 


000552' 


FXT 


DAT 


000005 


INT 


DCHNPE 


002000 




ODSKPE 


004000 




DDTX 


000161' 


FXT 


DELETl 


000 724' 




DEVDAT 


000006 


INT 


DEVLST 


000315' 


FXT 


DEVPHY 


000414 ' 


rXT 


OFRED 


002022' 


FXT 


OFWUNS 


001201' 


TNT 


OPAR 


004000 




DSKCNT 


000000 


rXT 


OSKINI 


000061' 


FXT 


EXEUIS 


001150' 




FTCHEC 


000000 


INT 


FTRC10 777777 777777 


iNT 


GETl 


000672' 




GETLIN 


000670' 




!LM 


020000 




INTLPl 


000046' 




INTTSl 


000320' 


rXT 


ITEM 


000004 


INT 


JOBPFI 


000001' 


FXT 


JRSTII 


000034' 




LBHIGH 


001705' 


rXT 


LINBUF 


001047' 




LINKDB 


000065' 


FXT 


LOWSWP 


002316' 




MDTMDT 


002100' 




MOVSTP 


000141' 


TNT 


mSS 010000 000000 




N0DD3 


000335' 




NULPDL 


000060' 


FXT 


NUMSAT 


001660' 


FXT 


OCTIN 


000506' 


FXT 


0NCE2 


000424' 




0NCE4A 


000444* 




0NCE6 


000347' 




0NCE8 


000417' 




ONCEPD 


001026' 




OPOUTl 


000736' 




OTSET 


001006' 





ONCEP 
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OUTCMS 


00(13'57' 


EXT 


PATSI2 


PI00163' 


INT 


PLGSf' 


l"0<t,}!^2 P10B0J0 




psr 


0100','0 




RATXie 


^00447 ' 


EXT 


RCXW';^ 


000162' 


INT 


RDSTST 


001625' 




REF1>^ 


000555' 




REF3 


000514' 




REF4" 


000610' 




REF6'' 


000625' 




REF9M 


000651' 




REFL4G 


000540' 


EXT 


REFSRL 


001646' 




PEFST3 


001460' 




REFST6 


001506' 




RESETS 


000010 




RFSH'-E 


001347' 




SATfJK2 


001261' 


EXT 


EATPTR 


001523' 


EXT 


SCMDOB 


H01006' 


EXT 


SE^T?^ 


001654' 


EXT 


SETSl 


001253' 




SETS:iA 


001272' 




SETS-^B 


001301' 




SETUUO 


000156' 




SIMGLE 


000334' 




STATRK 


000e''i 


INT 


STWN?1 


002066' 




SYSOnT 


000153' 


EXT 


SYSPP 


000537' 


EXT 


T30SYM 


000143' 


EXT 


TCONLN 


000371' 


EXT 


TIPF 


001010' 


EXT 


TIMLOP 


000251' 




TSE 


0400!»0 




TSTAPR 


000125' 




TTOBUF 


001013' 


EXT 


TYO 


000751' 




UUO 


000014 


INT 


UUOTRP 


000070' 


INT 


WLBIT 


00000B 


EXT 


WNHRO 


002013' 




WN?,V4T 


002045' 




WRRI T 


0010CB 




WRLK? 


001737' 




WRLKMl 


001745' 




WRST41 


001666' 




WRSTAT 


5101564' 




wsYNr 


001251' 


EXT 



DVR 


0001'"0 




PATSYM 


91001A0 


nT 


PRIMA^'E 


"00330 


EXT 


PUTCMI 


P007'"7' 


FXT 


^JCXCCW 


C02027' 


FXT 


RDSTAl 


0016^4' 




RDSTMl 


001645' 




REF2 


000500' 




REF34 


000532 ' 




REF5 


000545' 




REF7" 


000670' 




REFERl 


002111' 




REFRFS 


001315' 




REFSTl 


001435' 




REFST4 


001473' 




REFST7 


001510' 




RFRSHl 


001341' 




RF5T?A 


0014f4' 




SATE^'T 


001543' 


EXT 


SATlnP 


001305' 


FXT 


5Er.\' 


0001.14 ' 


EXT 


SETBPI 


000670 1 


FXT 


■^ETS? 


001254' 




SETS4 


001273' 




SETS'^X 


0013?5' 




SETH^'Z 


002061' 




SKIP": 


000623' 


rxT 


STQl 


000031 ' 




STWN22 


002072' 




=;ysd^ 


001145' 




SYSSI2 


000443' 


EXT 


TAG 


0000"! 


INT 


TEM 


000010 


INT 


TIME 


002101 ' 


EXT 


TORF 


001012' 


FXT 


TSETBF 


001014' 


EXT 


TSTHEG 


000111' 




THORFG 


0003''3' 


FXT 


TYPL 


000000 


EXT 


HUOi; 


0000701 


EXT 


VONCr 


00041 4 


INT 


;JN?RUF 


002116' 




WNiFR-^C 


'02023' 




WN?w'' 


002033' 




WRCCt :) 


000040 




wrlkh 


"01741' 




WRLK"2 


0017'.0' 




WRSTA2 


001577' 




WRST-'l 


001603' 




XJRPFI 


0000P2I 


FXT 



PATCH 


000163' 


rxT 


POP 


000003 


INT 


PROG 


000007 


INT 


QUICK 


000456' 




RCXFIN 


002030' 


FXT 


RDSTA2 


001640' 




REF 


000467' 




REF2M 


000567' 




REF3M 


000574' 




REF6 


000475' 




REF6M 


300636 ' 




REFERR 


002112' 




REFSRF 


001526' 




REFST2 


001452' 




REFST5 


001475' 




REGT30 


000151' 




RFRSHE 


001342' 




SAT 


000000 


rXT 


SAT05 


001306' 


FXT 


SATXWD 


001620' 


FXT 


SEGPTR 


000136' 


rXT 


SETFRE 


000000 


rXT 


SETS3 


001266' 




SETS5 


001277' 




SETS6 


001313' 




SFTERR 


160600 




SRCHE 


200000 




STPBIT 


000020 




SYSOAT 


000174 1 


F'XT 


SYSM 


001133' 




T 


000001 




TACl 


000002 


INT 


THSOAT 


002104' 


FXT 


TIMEM 


001113' 




TOHATE 


001104' 




TSEXEC 


001077' 




TTIBUF 


001011' 


FXT 


TYl 


000771' 




USRLIM 


000446' 


rXT 


LlUOg 


000110' 


nXT 


MATMSG 


002056' 




mn?clr 


002074' 




WNZROX 


002032' 




UNZhTL 


002046' 




WRITLK 


001723' 




K R L K 9 


001742' 




WRPE 


000200 




WRSTA9 


001617' 




WRSTSE 


000006 




YESNO 


001015' 





A 


6# 


6 




















AC! 


6# 


6 


399 


400 


4(^2 


409 


4?0 


4?1 


422 


423 


440 




1454 


1455 


1456 


1457 


14'^8 


1714 


1723 










AC2 


6# 


6 


1452 


1456 


1459 


1465 


1716 


1718 


1719 


1720 


1721 


AC3 


6» 






















AEFERR 


6# 


6 




















AL 


b# 


6 




















ALRCHM 


101 


119* 




















ALRLMK 


400 


418* 




















AND2RG 


165 


191 




















APR 


fi4 


68 


170 


174 


188 


190 


779 


781 








APRCMK 


753 


772 


779* 


















ASSCON 


6# 


6 




















ASSPPG 


bit 


6 




















B 


6* 


6 




















BLKSPK 


1185 


1276 




















BUFPMT 


6# 


6 




















BUFWRD 


6# 


6 




















BUSYRT 


12?3# 


1647 


1678 


















CAPCTY 


872 


1270 


1560* 


1596) 
















CHI 


140 


14b 




















CH2 


140 


147 




















CH3 


140 


149 




















CH4 


140 


151 




















CHS 


140 


153 




















CHS 


140 


155 




















CH7 


140 


157 




















CHCP4R 


1217* 


12?9 




















CHOPAR 


1216* 


1228 




















CHKSAV 


1332 


1351 


1758* 


















CHKSUM 


1182 


1331 


141S 


















CHREC 


428 


432 


433 


669* 


678 


680 


681 


682 


684 


686 


687 




698 


711 


715 


717 


722 


739 


74 3 


745 


756 


763 


764 


CLKR 


6* 


6 




















CLSIN 


6# 


6 




















CLSOUT 


6# 


6 




















CNWB 


6* 


6 




















CNTQP 


491 


494 




















COMFIG 


267 


294 




















COMFLP 


4?2* 


416 




















CONMES 


266 


295 


297 


299 


301 


438 


504 


788 








CORC'T 


6# 


6 




















CORLIM 


5!?9 


5?8 




















CPCTl 


1567# 


1573 




















CPCT? 


1575* 


15fi3 




















CPCT3 


1569 


1581* 




















CPCTMl 


1536 


1592* 




















cPnpj 


728 


739 




















CPOPJl 


674 


7?^1 


1180 


1475 


1492 














CRLF 


266 


293 


414 


439 


5f5 


515 


637 










CRUFHS 


386 


442 


849* 


















CTEXT 


453 


460 




















D 


6# 


6 





















911 



912 



916 



690 
765 



691 
805 



696 
806 



DAT 


6# 


6 


63 


66 


67 




IP'S 


lit) 


116 


146 


148 




9ia 


913 


918 


923 




RATERR 


12?8# 


1646 


1659 


1677 




DATLTP 


Z^B 


31B# 


316 


318 


319 


DCHNPE 


12fta# 










nCL 


6« 


6 








DCLI 


6# 


6 








nCLO 


6# 


6 








DCLR 


6# 


6 








DCPUTR 


672 


75!4 








DDE 


1211# 


1230 








ODl 


6« 


6 








DDO 


b# 


6 








ODStCE 


1259# 










ODTE^'D 


4R1 


4S6 








DOTSVM 


61 


57 


222 


232 


234 


DDTX 


2?2 


235 


248 


252 




DECINi 


509 


524 


596 






DECIVl 


266 


317 


327 


336 


359 


DELETl 


7f^5 


715# 








DELETE 


6fi3 


7^4# 








DEN 


6# 


6 








DESMFS 


518 


847# 








DEVAiR 


6# 


6 








DEVB^IF 


6# 


6 








OEVCMR 


6# 


6 








DEVCTR 


6U 


6 








DEVDAT 


6# 


6 


731 


791 


793 


DEVERR 


12291) 


1646 


1659 


1677 




DEVEXT 


6# 


6 








HEVFIL 


6# 


6 








DEVUD 


6# 


6 








DEVIOS 


6« 


6 


902 






OEVLOG 


6# 


6 








OEVLST 


92 


100 


132 


139 


231 


DEVMOD 


6# 


6 








OEVNAM 


6* 


6 


409 


420 


423 


DEVOAO 


6# 


6 








DEVOFR 


453 


466 








DEVPUY 


453 


464 








DEVPPN 


6# 


6 








DEVPTR 


6*( 


6 








DEVSFR 


6# 


6 


421 






DFGETF 


865 










DFREH 


lin2 


1654 








DFWN?1 


874 


aB5# 








DFWRT 


11R2 


1687 








DEMUR'S 


863 


868# 


884 






DGF 


6l» 


6 








OHNG 


6# 


6 








DIN 


6# 


6 








niNI 


6« 


6 









70 83 84 
150 152 154 



86 


1?)3 


i;!4 


1Z5 


106 


1^7 


156 


158 


731 


905 


977 


9^9 



322 



328 3?9 



3-!2 



337 



338 



341 



240 



794 



381 



795 



399 



796 



8913 



892 



902 



niSKUP 


11«2 


1268 








DLK 


6# 


6 








DMT 


6# 


6 








DNAEBH 


6# 


6 








DOMEF'L 


1221# 


1647 


1678 


1696 




DOU 


6# 


6 








DP4R 


1215# 


1228 








DR 


bU 


6 








DRL 


6*1 


6 








DRN 


6# 


6 








OSFR 


bit 


6 








DS! 


bti 


6 








DSK 


1192* 


15B2 


16;11 


1622 


1646 


DSKBUF 


665 


892 








DSKC^'T 


B65 










nSKODB 


865 


890 








DSKFr.G 


1192 


1650 


1652 


1655 


Ib'fZ 


nSKu-'i 


124 


125 








DSKRLB 


b# 


6 








DSO 


6# 


6 








OTIP 


12(?8*' 










DVAVAL 


6# 


6 








DVCDR 


b# 


6 








DVDIP 


6« 


5 








DVDIRI 


bit 


5 








nVDI<! 


6« 


6 








DvnsK 


&n 


6 








DVnTi 


btt 


6 








nviN 


btt 


6 








DVLNG 


bf 


6 








OVLPT 


6# 


6 








DVMT4 


6# 


6 








DVOUT 


6* 


6 








nVPTP 


6# 


6 








DVPTR 


bit 


6 








DVTTV 


bit 


6 








ENTRn 


bit 


6 








ERROR 


139 


146 


148 


1-50 


i-^z 


EXECIS 


499 


842# 








FBMERR 


6# 


6 








FNFERR 


6# 


6 








FRGSEG 


6« 


6 








FT2RrL 


6# 


47 


53 


163 


384 


FTATTA 


bil 










FTCCL 


ie« 










FTCHEC 


6« 


542 


544 


1769 


1770 


FT0I5K 


10# 


11 


14 


1/ 


l?t) 


FTEXAM 


6# 










FTFIVI 


bn 










FTGETT 


a* 










FTHALT 


6* 










FTKCT 


6# 










FTLOGI 


ten 











1647 1659 



1685 



1677 



1678 



1696 



154 156 



158 



533 574 



55e 



860 



861 



992 



FTf<n"p 


TTORV 


fTOtii- 


FTRci;: 


FTOCmK 


FTREAS 


FTCfE 


FTSk.'.P 


FTTAL K 


FTTI"t 


FTTR4C 


FTTR"S 


FTTTVS 


r,ETl 


r,ET2 


r.LTCHK 


GETLIM 


GETL»1 


HSAM?K 


HSiP-^S 


HS4SIZ 


HU^JGCT 


HU^'GST 


1 

IS 


IBUF- 


ICLO^B 


ICON'< 


IL" 


ILUE-'R 


INPF = 


INIT3 


INLMFS 


INPR 


INTL-P 


INTL°1 


I N T :\J 1 1 M 


INTTtB 


I.NTT-'l 


10 


lOiCT 


I OPEC. 


lanKTL 


IO"]T 


lOCTV 


I0r3\F 


lO-^EMI 


IO^E'-!t 


lorrrH 


lOF J- 



6« 

6# 

6P 

10# 

6* 
6« 
6^ 
J0# 
6# 
6# 
6# 
6# 
6« 

7?6 

679# 

689* 

277 

311 

685 
6# 
6« 
6« 
6« 
6# 
6# 
6« 
6« 
6# 

784* 
6# 
bit 
bit 
6« 

3P1 
6# 

15'3# 

1!"8« 
92 
92 

3S1 
6« 
bit 
6# 
bit 
bit 
btl 

i°7 
btl 
6« 
6# 
6# 



1 1 
9<5 



2^8 

7?B 

697 

7-->3 

3r:6 

356 

6«6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

3t4 

170 
6 

6 

6 
392 

6 
118 
112 
l-'2 
1'3 
4-2 

6 

6 

6 

6 

6 

6 
6 L' 9 « 

6 

6 

6 

6 



1 4 

9';5 



269 

770 
713 

335 
458 
7?1« 



3-i7 
12^6 

i='a 



1/ 
996 



llfi4 



273 

731 



738 

S?l 



39B 

1'196 

19il 



412 



7H 
1176 



12 7 4 



5?3 
733 



e?4 

5*>9 



257 



12'7 



7^9 



593 



2(^2 



13^9 



5"5 
7 



blbn 



575 



1512 



672 



719 



bfi7 



1516 



676 



gig 



673 



650 



659 



869 



925 



677 



692 



693 



■ 7P!B 



7^:4 



443 
1544 



446 



4 '=6 

15B7 



4'^3 



5-^ 
16r7 



877 



512 
XT']. 



519 



589 



612 



:6?0 



534 



4-'l 

113 381 4-4 



lOFST 


6# 


6 






lOIMPM 


6# 


6 






lONRCK 


b# 


6 






lOPAP 


b# 


6 






lOS 


6# 


6 


63 


9(!12 


lOTEMO 


6# 


6 






lOUSE 


6# 


6 






IQW 


6# 


6 






I owe 


6# 


6 






IPPEPR 


6# 


6 






ITFM 


6# 
713 


6 

721 


1^7 


108 


JACCT 


6# 


6 






JSrAlR 


6# 


6 






JBFCTR 


6# 


6 






JBFPTR 


6# 


6 






JBUF 


6# 


6 






JDAT 


6* 


6 






JERR 


b# 


6 






JIFMIN 


306 


371 


1738 




JLOG 


6# 


6 






JNA 


6# 


5 






JORN 


165 


196 






JOPPFI 


48 


51 






JORSVM 


48 


222 


228 


230 


JRO 


6# 


6 






JHSTI 


:L30 


138# 






JRSTIl 


78 


95# 






JSATn6 


864 


694 






JWPOS 


6# 


6 






JWSI? 


6# 


6 






JXPN 


bit 


6 






K4SW4P 


592 


66"! 


1183 


1275 


LBHIGH 


873 


111*7 


1272 


1509 


UB5AVE 


16B1 


1751 


1759# 




LEMGTH 


5?'-3 


844# 






LINBUF 


815 


816# 






LI\'E 


67a# 


757 


766 




LiKiEP 


bl5# 








LIMKHB 


133 


139 






L.I'"K'5R 


47 


50# 


131 


138 


Lisy^Ni 


6 








LOC^a 


95 


142# 






LOOK'-s 


6# 


6 






I.OWS'-.iP 


1278 


1268 


1371 


I3sa 


MAHE\D 


471 


476 






"AXS'-iP 


11P5 


1513 






MQT^IGT 


1344 


1442 


1736# 




MEDDLE 


6# 


6 






WFDBLK 


551 


5?2 


1181 


128b 


yOVJMP 


226# 


239 






MOVSTP 


71 


221 


224<( 


243 


MQIN 


865 


9P3 







110 111 116 375 420 



424 



431 



678 



697 



721 



1511 

1562 1563 1572 1576 1589 



13S2 



1316 
25e 
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